MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Remove Digits_From_Size and Width_From_Size

Browse Source 
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.
This commit is contained in:
Eric Botcazou 2020-09-21 22:04:55 +02:00 committed by Pierre-Marie de Rodat
parent b36ec51873
commit 0c1eba1a6a
5 changed files with 0 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gcc/ada/ada_get_targ.adb
View File

@ -208,22 +208,6 @@ package body Get_Targ is
return 0;
end Get_Double_Scalar_Alignment;
----------------------
-- 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 --
-----------------------------
@ -260,22 +244,6 @@ package body Get_Targ is
Alignment => 64);
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;
------------------------------
-- Get_Back_End_Config_File --
------------------------------

32
gcc/ada/get_targ.adb
View File

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

4
gcc/ada/get_targ.ads
View File

@ -115,10 +115,6 @@ package Get_Targ is
-- Returns the maximum supported size in bits for a field that is
-- not aligned on a storage unit boundary.
function Width_From_Size (Size : Pos) return Pos;
function Digits_From_Size (Size : Pos) return Pos;
-- Calculate values for 'Width or 'Digits from 'Size
type C_String is array (0 .. 255) of aliased Character;
pragma Convention (C, C_String);

2
gcc/ada/gnat1drv.adb
View File

@ -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 :=

31
gcc/ada/ttypes.ads
View File

@ -26,7 +26,6 @@
-- This package contains constants describing target properties
with Types; use Types;
with Get_Targ;
with Set_Targ;
package Ttypes is
@ -102,63 +101,33 @@ package Ttypes is
Standard_Short_Short_Integer_Size : constant Pos :=
Set_Targ.Char_Size;
Standard_Short_Short_Integer_Width : constant Pos :=
Get_Targ.Width_From_Size
(Standard_Short_Short_Integer_Size);
Standard_Short_Integer_Size : constant Pos :=
Set_Targ.Short_Size;
Standard_Short_Integer_Width : constant Pos :=
Get_Targ.Width_From_Size
(Standard_Short_Integer_Size);
Standard_Integer_Size : constant Pos :=
Set_Targ.Int_Size;
Standard_Integer_Width : constant Pos :=
Get_Targ.Width_From_Size
(Standard_Integer_Size);
Standard_Long_Integer_Size : constant Pos :=
Set_Targ.Long_Size;
Standard_Long_Integer_Width : constant Pos :=
Get_Targ.Width_From_Size
(Standard_Long_Integer_Size);
Standard_Long_Long_Integer_Size : constant Pos :=
Set_Targ.Long_Long_Size;
Standard_Long_Long_Integer_Width : constant Pos :=
Get_Targ.Width_From_Size
(Standard_Long_Long_Integer_Size);
Standard_Long_Long_Long_Integer_Size : Pos :=
Set_Targ.Long_Long_Long_Size;
Standard_Long_Long_Long_Integer_Width : Pos :=
Get_Targ.Width_From_Size
(Standard_Long_Long_Long_Integer_Size);
Standard_Short_Float_Size : constant Pos :=
Set_Targ.Float_Size;
Standard_Short_Float_Digits : constant Pos :=
Get_Targ.Digits_From_Size
(Standard_Short_Float_Size);
Standard_Float_Size : constant Pos :=
Set_Targ.Float_Size;
Standard_Float_Digits : constant Pos :=
Get_Targ.Digits_From_Size
(Standard_Float_Size);
Standard_Long_Float_Size : constant Pos :=
Set_Targ.Double_Size;
Standard_Long_Float_Digits : constant Pos :=
Get_Targ.Digits_From_Size
(Standard_Long_Float_Size);
Standard_Long_Long_Float_Size : constant Pos :=
Set_Targ.Long_Double_Size;
Standard_Long_Long_Float_Digits : constant Pos :=
Get_Targ.Digits_From_Size
(Standard_Long_Long_Float_Size);
Standard_Character_Size : constant Pos := Set_Targ.Char_Size;