diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-11-20 19:33:21 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-14 10:51:52 -0500 |
| commit | 77c44637af3c9f5b974cf02cb80d1abb3b2ce210 (patch) | |
| tree | 9269d381e0b8846b5541002682f03194427c060f /gcc/ada/libgnat | |
| parent | f3dd0581a51be1e4354bdcf23f1eee7f5c707a3a (diff) | |
| download | gcc-77c44637af3c9f5b974cf02cb80d1abb3b2ce210.zip gcc-77c44637af3c9f5b974cf02cb80d1abb3b2ce210.tar.gz gcc-77c44637af3c9f5b974cf02cb80d1abb3b2ce210.tar.bz2 | |
[Ada] Adjust previous change to System.Fat_Gen
gcc/ada/
* libgnat/s-fatgen.adb: Remove use clause for
System.Unsigned_Types.
(Scaling): Add renaming of System.Unsigned_Types and use type
clause for Long_Long_Unsigned.
Diffstat (limited to 'gcc/ada/libgnat')
| -rw-r--r-- | gcc/ada/libgnat/s-fatgen.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/libgnat/s-fatgen.adb b/gcc/ada/libgnat/s-fatgen.adb index bebe737..64234b4 100644 --- a/gcc/ada/libgnat/s-fatgen.adb +++ b/gcc/ada/libgnat/s-fatgen.adb @@ -35,7 +35,7 @@ -- floating-point implementations. with Ada.Unchecked_Conversion; -with System.Unsigned_Types; use System.Unsigned_Types; +with System.Unsigned_Types; pragma Warnings (Off, "non-static constant in preelaborated unit"); -- Every constant is static given our instantiation model @@ -586,6 +586,9 @@ package body System.Fat_Gen is pragma Assert (Mantissa <= 64); -- This implementation handles only 80-bit IEEE Extended or smaller + package UST renames System.Unsigned_Types; + use type UST.Long_Long_Unsigned; + XX : T := T'Machine (X); Rep : Float_Rep; @@ -661,7 +664,7 @@ package body System.Fat_Gen is Float_Word (IEEE_Ebias + Expf) * Exp_Factor; if Expi < 0 then - XX := XX / T (Long_Long_Unsigned (2) ** (-Expi)); + XX := XX / T (UST.Long_Long_Unsigned (2) ** (-Expi)); end if; return XX; |