CVS difference for acats/cxe/cxe5002.a

Differences between 1.2 and version 1.3
Log of other versions for file acats/cxe/cxe5002.a

--- acats/cxe/cxe5002.a	1998/10/21 16:45:33	1.2
+++ acats/cxe/cxe5002.a	1999/03/10 22:22:13	1.3
@@ -2,15 +2,16 @@
 --
 --                             Grant of Unlimited Rights
 --
--- 00-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687 and
--- e U.S. Government obtained unlimited rights in the
--- tation contained herein.  Unlimited rights are 
--- 227-7013(a)(19).  By making this public release, 
--- ds to confer upon all recipients unlimited rights
--- by the Government.  These rights include rights to
--- ase or disclose the released technical data and
---  whole or in part, in any manner and for any purpose
--- ave or permit others to do so.
+--     Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
+--     F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained 
+--     unlimited rights in the software and documentation contained herein.
+--     Unlimited rights are defined in DFAR 252.227-7013(a)(19).  By making 
+--     this public release, the Government intends to confer upon all 
+--     recipients unlimited rights  equal to those held by the Government.  
+--     These rights include rights to use, duplicate, release or disclose the 
+--     released technical data and computer software in whole or in part, in 
+--     any manner and for any purpose whatsoever, and to have or permit others 
+--     to do so.
 --
 --                                    DISCLAIMER
 --
@@ -92,8 +93,7 @@
 -- CHANGE HISTORY:
 --     18 APR 95   SAIC    Initial version
 --     23 OCT 95   SAIC    Added checks on Partition_ID.
--- Corrected so Partition B does not display a
--- spurious failure message.
+--
 --!
 
 
@@ -355,8 +355,7 @@
       Partition : in Partition_ID;
       Receiver  : in RPC_Receiver) is
   begin
-    if Partition /= CXE5002_Part_A'Partition_ID and then
-       Partition /= CXE5002_Part_B'Partition_ID then
+    if Partition /= CXE5002_Part_A'Partition_ID then
       Report.Failed ("partition parameter to Establish_RPC_Receiver" &
                      " is not correct");
     end if;

Questions? Ask the ACAA Technical Agent