From 0c1eba1a6a95b339b16cfceb2d10f8d05aea9fc4 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 21 Sep 2020 22:04:55 +0200 Subject: [Ada] Remove Digits_From_Size and Width_From_Size gcc/ada/ * ada_get_targ.adb (Digits_From_Size): Delete. (Width_From_Size): Likewise. * get_targ.adb (Digits_From_Size): Likewise. (Width_From_Size): Likewise. * get_targ.ads (Digits_From_Size): Likewise. (Width_From_Size): Likewise. * ttypes.ads: Remove with clause for Get_Targ. (Standard_Short_Short_Integer_Width): Delete. (Standard_Short_Integer_Width): Likewise. (Standard_Integer_Width): Likewise. (Standard_Long_Integer_Width): Likewise. (Standard_Long_Long_Integer_Width): Likewise. (Standard_Long_Long_Long_Integer_Width): Likewise. (Standard_Short_Float_Digits): Likewise. (Standard_Float_Digits): Likewise. (Standard_Long_Float_Digits): Likewise. (Standard_Long_Long_Float_Digits): Likewise. * gnat1drv.adb (Adjust_Global_Switches): Adjust. --- gcc/ada/gnat1drv.adb | 2 -- 1 file changed, 2 deletions(-) (limited to 'gcc/ada/gnat1drv.adb') diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 1ea7d763175..65da307af6b 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -813,8 +813,6 @@ procedure Gnat1drv is 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 := -- cgit v1.2.1