diff options
Diffstat (limited to 'gcc/ada/a-ngelfu.adb')
| -rw-r--r-- | gcc/ada/a-ngelfu.adb | 25 |
1 files changed, 9 insertions, 16 deletions
diff --git a/gcc/ada/a-ngelfu.adb b/gcc/ada/a-ngelfu.adb index d7ae2c8dc2e..c7c526eb32f 100644 --- a/gcc/ada/a-ngelfu.adb +++ b/gcc/ada/a-ngelfu.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002, 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- -- @@ -53,20 +53,13 @@ package body Ada.Numerics.Generic_Elementary_Functions is subtype T is Float_Type'Base; subtype Double is Aux.Double; - Two_Pi : constant T := 2.0 * Pi; - Half_Pi : constant T := Pi / 2.0; - Fourth_Pi : constant T := Pi / 4.0; + Two_Pi : constant T := 2.0 * Pi; + Half_Pi : constant T := Pi / 2.0; - Epsilon : constant T := 2.0 ** (1 - T'Model_Mantissa); - IEpsilon : constant T := 2.0 ** (T'Model_Mantissa - 1); - Log_Epsilon : constant T := T (1 - T'Model_Mantissa) * Log_Two; Half_Log_Epsilon : constant T := T (1 - T'Model_Mantissa) * Half_Log_Two; Log_Inverse_Epsilon : constant T := T (T'Model_Mantissa - 1) * Log_Two; Sqrt_Epsilon : constant T := Sqrt_Two ** (1 - T'Model_Mantissa); - DEpsilon : constant Double := Double (Epsilon); - DIEpsilon : constant Double := Double (IEpsilon); - ----------------------- -- Local Subprograms -- ----------------------- @@ -563,7 +556,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is function Cosh (X : Float_Type'Base) return Float_Type'Base is Lnv : constant Float_Type'Base := 8#0.542714#; V2minus1 : constant Float_Type'Base := 0.13830_27787_96019_02638E-4; - Y : Float_Type'Base := abs X; + Y : constant Float_Type'Base := abs X; Z : Float_Type'Base; begin @@ -622,7 +615,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is else T := T / Cycle * Two_Pi; - return Cos (T) / Sin (T); + return Cos (T) / Sin (T); end if; end Cot; @@ -861,7 +854,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is -- an exact value in those cases. It is not clear that -- this is worth the extra test though. - return Float_Type'Base (Aux.Sin (Double (T / Cycle * Two_Pi))); + return Float_Type'Base (Aux.Sin (Double (T / Cycle * Two_Pi))); end Sin; ---------- @@ -871,7 +864,7 @@ package body Ada.Numerics.Generic_Elementary_Functions is function Sinh (X : Float_Type'Base) return Float_Type'Base is Lnv : constant Float_Type'Base := 8#0.542714#; V2minus1 : constant Float_Type'Base := 0.13830_27787_96019_02638E-4; - Y : Float_Type'Base := abs X; + Y : constant Float_Type'Base := abs X; F : constant Float_Type'Base := Y * Y; Z : Float_Type'Base; @@ -1011,8 +1004,8 @@ package body Ada.Numerics.Generic_Elementary_Functions is Half_Ln3 : constant Float_Type'Base := 0.54930_61443; P, Q, R : Float_Type'Base; - Y : Float_Type'Base := abs X; - G : Float_Type'Base := Y * Y; + Y : constant Float_Type'Base := abs X; + G : constant Float_Type'Base := Y * Y; Float_Type_Digits_15_Or_More : constant Boolean := Float_Type'Digits > 14; |