OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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.
This commit is contained in:
Eric Botcazou 2020-11-20 19:33:21 +01:00 committed by Pierre-Marie de Rodat
parent f3dd0581a5
commit 77c44637af
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/libgnat/s-fatgen.adb
View File

@ -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;