CVS difference for acats/b8/b83f02c.ada

Differences between 1.2 and version 1.3
Log of other versions for file acats/b8/b83f02c.ada

--- acats/b8/b83f02c.ada	1999/03/11 00:34:08	1.2
+++ acats/b8/b83f02c.ada	2016/06/30 03:18:56	1.3
@@ -3,22 +3,22 @@
 --                             Grant of Unlimited Rights
 --
 --     Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
--- d DCA100-97-D-0025, the U.S. Government obtained 
+--     F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
 --     unlimited rights in the software and documentation contained herein.
---  defined in DFAR 252.227-7013(a)(19).  By making 
---  the Government intends to confer upon all 
---  rights  equal to those held by the Government.  
---  rights to use, duplicate, release or disclose the 
--- ata and computer software in whole or in part, in 
--- ny purpose whatsoever, and to have or permit others 
+--     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
 --
 --     ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
---   THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED 
+--     DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
 --     WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
--- ION OR OTHER INFORMATION RELEASED, MADE AVAILABLE 
+--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
 --     PARTICULAR PURPOSE OF SAID MATERIAL.
 --*
@@ -37,7 +37,7 @@
 --     THS 09/25/90  ADDED CHECK WHERE PARAMETER NAMES ARE DIFFERENT
 --                   IN THE TWO DECLARATION AND RENAMED FROM
 --                   B83F04A.ADA.
-
+--     RLB 06/29/16  UPDATED ERROR MARKERS TO STANDARDS.
 PROCEDURE B83F02C IS
 BEGIN
 
@@ -47,21 +47,21 @@
 
           PACKAGE PKGA IS
                SUBTYPE INT IS INTEGER RANGE 1..10;
-               PROCEDURE PA1  (X : IN OUT INTEGER); -- OPTIONAL ERR MSG.
-               PROCEDURE PA2  (X : IN OUT INTEGER); -- OPTIONAL ERR MSG.
-               PROCEDURE PA3  (X : IN OUT INTEGER); -- OPTIONAL ERR MSG.
+               PROCEDURE PA1  (X : IN OUT INTEGER); -- OPTIONAL ERROR:
+               PROCEDURE PA2  (X : IN OUT INTEGER); -- OPTIONAL ERROR:
+               PROCEDURE PA3  (X : IN OUT INTEGER); -- OPTIONAL ERROR:
                PROCEDURE PA4  (X : IN OUT INTEGER);
                PROCEDURE PA5  (X : IN OUT INTEGER);
                PROCEDURE PA6  (X : IN OUT INTEGER);
-               PROCEDURE PA7  (X : IN OUT INTEGER); -- OPTIONAL ERR MSG.
-               FUNCTION FA1  (X : INTEGER) RETURN INTEGER; -- OPTIONAL
-                                                           -- ERR MSG.
-               FUNCTION FA2  (X : INTEGER) RETURN INTEGER; -- OPTIONAL
-                                                           -- ERR MSG.
+               PROCEDURE PA7  (X : IN OUT INTEGER); -- OPTIONAL ERROR:
+               FUNCTION FA1  (X : INTEGER) RETURN INTEGER; -- OPTIONAL ERROR:
+
+               FUNCTION FA2  (X : INTEGER) RETURN INTEGER; -- OPTIONAL ERROR:
+
                FUNCTION FA3  (X : INTEGER) RETURN INTEGER;
                FUNCTION FA4  (X : INTEGER := 1)
-                                           RETURN INTEGER; -- OPTIONAL
-                                                           -- ERR MSG.
+                                           RETURN INTEGER; -- OPTIONAL ERROR:
+
                FUNCTION FA5  (X : INTEGER := 1) RETURN INTEGER;
           PRIVATE
                PROCEDURE PA1  (X : IN OUT INTEGER);   -- ERROR:
@@ -205,7 +205,7 @@
                FUNCTION FB5(X : INTEGER := 7) RETURN INTEGER; -- ERROR:
                                                       -- REDECLARES FB5
 
-          END PKGB;  -- OPTIONAL ERROR MESSAGES ABOUT MISSING BODIES.
+          END PKGB;  -- OPTIONAL ERROR:  MESSAGES ABOUT MISSING BODIES.
 
      BEGIN     -- (B)
           NULL;

Questions? Ask the ACAA Technical Agent