CVS difference for acats/cxb/cxb3010.a
--- acats/cxb/cxb3010.a 1998/09/27 03:12:45 1.2
+++ acats/cxb/cxb3010.a 1999/03/10 23:25:18 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
--
@@ -59,7 +60,8 @@
-- 27 Sep 95 SAIC Initial prerelease version.
-- 13 May 96 SAIC Incorporated reviewer comments for ACVC 2.1.
-- 26 Oct 96 SAIC Incorporated reviewer comments.
--- Replicated line 199 at line 256
+-- 01 DEC 97 EDS replicate line 199 at line 256, to ensure that
+-- TC_chars_ptr has a valid pointer
--!
with Report;
@@ -252,7 +254,7 @@
"with Item parameter, when the Item parameter " &
"is Null_Ptr");
end;
- -- Next line inserted: AVO directed mod
+
TC_chars_ptr := ICS.New_Char_Array(TC_char_array_2);
begin
TC_char_array := ICS.Value(Item => Freedom(True, TC_chars_ptr),
Questions? Ask the ACAA Technical Agent