diff options
Diffstat (limited to 'gcc/ada/a-nuflra.ads')
| -rw-r--r-- | gcc/ada/a-nuflra.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/a-nuflra.ads b/gcc/ada/a-nuflra.ads index 3ebb822e5c6..dacdd7c5eff 100644 --- a/gcc/ada/a-nuflra.ads +++ b/gcc/ada/a-nuflra.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -43,8 +43,7 @@ -- excellent randomness properties. For further details, see the -- paper "Fast Generation of Trustworthy Random Numbers", by Robert -- Eachus, which describes both the algorithm and the efficient --- implementation approach used here. This paper is available at --- the Ada Core Technologies web site (http://www.gnat.com). +-- implementation approach used here. with Interfaces; @@ -75,7 +74,10 @@ package Ada.Numerics.Float_Random is private type Int is new Interfaces.Integer_32; - type Flt is digits 14; + + -- We prefer to use 14 digits for Flt, but some targets are more limited + + type Flt is digits Positive'Min (14, Long_Long_Float'Digits); K1 : constant := 94_833_359; K1F : constant := 94_833_359.0; |