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/get_targ.adb | 32 -------------------------------- 1 file changed, 32 deletions(-) (limited to 'gcc/ada/get_targ.adb') diff --git a/gcc/ada/get_targ.adb b/gcc/ada/get_targ.adb index 8b35b1c..881c06c 100644 --- a/gcc/ada/get_targ.adb +++ b/gcc/ada/get_targ.adb @@ -278,22 +278,6 @@ package body Get_Targ is return null; end Get_Back_End_Config_File; - ---------------------- - -- Digits_From_Size -- - ---------------------- - - function Digits_From_Size (Size : Pos) return Pos is - begin - case Size is - when 32 => return 6; - when 48 => return 9; - when 64 => return 15; - when 96 => return 18; - when 128 => return 18; - when others => raise Program_Error; - end case; - end Digits_From_Size; - ----------------------------- -- Get_Max_Unaligned_Field -- ----------------------------- @@ -314,20 +298,4 @@ package body Get_Targ is Enumerate_Modes (Call_Back); end Register_Back_End_Types; - --------------------- - -- Width_From_Size -- - --------------------- - - function Width_From_Size (Size : Pos) return Pos is - begin - case Size is - when 8 => return 4; - when 16 => return 6; - when 32 => return 11; - when 64 => return 21; - when 128 => return 40; - when others => raise Program_Error; - end case; - end Width_From_Size; - end Get_Targ; -- cgit v1.1