diff options
Diffstat (limited to 'gcc/ada/urealp.ads')
-rw-r--r-- | gcc/ada/urealp.ads | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gcc/ada/urealp.ads b/gcc/ada/urealp.ads index 21bda9234cf..05b847d4e3c 100644 --- a/gcc/ada/urealp.ads +++ b/gcc/ada/urealp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -110,12 +110,24 @@ package Urealp is function Ureal_100 return Ureal; -- Returns value 100.0 + function Ureal_2_80 return Ureal; + -- Returns value 2.0 ** 80 + + function Ureal_2_M_80 return Ureal; + -- Returns value 2.0 ** (-80) + function Ureal_2_128 return Ureal; -- Returns value 2.0 ** 128 function Ureal_2_M_128 return Ureal; -- Returns value 2.0 ** (-128) + function Ureal_10_36 return Ureal; + -- Returns value 10.0 ** 36 + + function Ureal_M_10_36 return Ureal; + -- Returns value -(10.0 + ----------------- -- Subprograms -- ----------------- |