From 77c44637af3c9f5b974cf02cb80d1abb3b2ce210 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 20 Nov 2020 19:33:21 +0100 Subject: [PATCH] [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. --- gcc/ada/libgnat/s-fatgen.adb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/gcc/ada/libgnat/s-fatgen.adb b/gcc/ada/libgnat/s-fatgen.adb index bebe73748ae..64234b436f5 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; -- 2.30.2