diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-08-27 20:52:14 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-23 04:24:45 -0400 |
| commit | ca5d8b907298d5818127ead3f0d5a628e5f5dcc3 (patch) | |
| tree | d2bbdbc276f25c04022b87ece40f4d2f3a5eddd5 /gcc/ada | |
| parent | b740cf28536e3baec54914dfa1894b17711aa99c (diff) | |
| download | gcc-ca5d8b907298d5818127ead3f0d5a628e5f5dcc3.zip gcc-ca5d8b907298d5818127ead3f0d5a628e5f5dcc3.tar.gz gcc-ca5d8b907298d5818127ead3f0d5a628e5f5dcc3.tar.bz2 | |
[Ada] Always enable the support for 128-bit integer types on 64-bit platforms
gcc/ada/
* gnat1drv.adb (Adjust_Global_Switches): Rewrite again code enabling
or disabling the support for 128-bit integer types.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/gnat1drv.adb | 33 |
1 files changed, 12 insertions, 21 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 9c51889..180a140 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -800,30 +800,21 @@ procedure Gnat1drv is end if; -- Enable or disable the support for 128-bit types. It is automatically - -- enabled if the back end supports them, unless not in GNAT mode and - -- either the runtime does not contain the required support units or the - -- switch -gnatd.H is specified. + -- enabled if the back end supports them, unless -gnatd.H is specified. Enable_128bit_Types := Ttypes.Standard_Long_Long_Long_Integer_Size = 128; - if Enable_128bit_Types and then not GNAT_Mode then - Name_Len := 13; - Name_Buffer (1 .. Name_Len) := "s-arit128.ads"; - - if Find_File (Name_Find, Osint.Source, Full_Name => True) = No_File - or else Debug_Flag_Dot_HH - then - Enable_128bit_Types := False; - - Ttypes.Standard_Long_Long_Long_Integer_Size := - Ttypes.Standard_Long_Long_Integer_Size; - Ttypes.Standard_Long_Long_Long_Integer_Width := - Ttypes.Standard_Long_Long_Integer_Width; - Ttypes.System_Max_Integer_Size := - Ttypes.Standard_Long_Long_Integer_Size; - Ttypes.System_Max_Binary_Modulus_Power := - Ttypes.Standard_Long_Long_Integer_Size; - end if; + if Enable_128bit_Types and then Debug_Flag_Dot_HH then + Enable_128bit_Types := False; + + Ttypes.Standard_Long_Long_Long_Integer_Size := + Ttypes.Standard_Long_Long_Integer_Size; + Ttypes.Standard_Long_Long_Long_Integer_Width := + Ttypes.Standard_Long_Long_Integer_Width; + Ttypes.System_Max_Integer_Size := + Ttypes.Standard_Long_Long_Integer_Size; + Ttypes.System_Max_Binary_Modulus_Power := + Ttypes.Standard_Long_Long_Integer_Size; end if; -- Finally capture adjusted value of Suppress_Options as the initial |