CVS difference for acats/cxa/cxa5012.a

Differences between 1.1 and version 1.2
Log of other versions for file acats/cxa/cxa5012.a

--- acats/cxa/cxa5012.a	1998/09/26 01:07:10	1.1
+++ acats/cxa/cxa5012.a	1998/09/29 01:41:54	1.2
@@ -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
 --
@@ -57,7 +58,7 @@
 -- CHANGE HISTORY:
 --      25 Apr 95   SAIC    Initial prerelease version.
 --      17 Jul 95   SAIC    Incorporated reviewer comments.
---
+--      17 DEC 97   EDS     Change subtype upper limit from 100_000 to 10_000.
 --!
 
 with Ada.Numerics.Float_Random;
@@ -83,7 +84,7 @@
       -- Declare an integer subtype and an enumeration subtype, and use them
       -- to instantiate the discrete random number generator generic package.
 
-      subtype Discrete_Range is Integer range 1..100_000;
+      subtype Discrete_Range is Integer range 1..10_000;
       type    Suit_Of_Cards  is (Ace, One, Two, Three, Four, Five, Six,
                                  Seven, Eight, Nine, Ten, Jack, Queen, King);
       package Discrete_Pack is new Discrete_Random(Discrete_Range);

Questions? Ask the ACAA Technical Agent