diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-05-10 23:48:18 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-06-15 09:59:34 +0200 |
| commit | 37333bff3453ff643b41ea9a43d2ca2ab932f918 (patch) | |
| tree | ea81192af331166b6e53d72d1515b5b75fc372c0 /gcc/ada/get_targ.adb | |
| parent | e870d6d73b4f0d24cc1a9d976954b0df836dbd06 (diff) | |
| download | gcc-37333bff3453ff643b41ea9a43d2ca2ab932f918.zip gcc-37333bff3453ff643b41ea9a43d2ca2ab932f918.tar.gz gcc-37333bff3453ff643b41ea9a43d2ca2ab932f918.tar.bz2 | |
ada: Remove Ttypes.Max_Unaligned_Field
This constant has been unused for ages. The corresponding getter function
is also removed from the Get_Targ package, but the corresponding constant
declared in Set_Targ is preserved for the sake of backward compatibility
of the target file format.
gcc/ada/
* get_targ.ads (Get_Max_Unaligned_Field): Delete.
* ada_get_targ.adb (Get_Max_Unaligned_Field): Likewise.
* get_targ.adb (Get_Max_Unaligned_Field): Likewise.
* set_targ.ads (Max_Unaligned_Field): Adjust comment.
* set_targ.adb: Set Max_Unaligned_Field to 1 during elaboration.
* ttypes.ads (Max_Unaligned_Field): Delete.
Diffstat (limited to 'gcc/ada/get_targ.adb')
| -rw-r--r-- | gcc/ada/get_targ.adb | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/gcc/ada/get_targ.adb b/gcc/ada/get_targ.adb index b2b8932..3422899 100644 --- a/gcc/ada/get_targ.adb +++ b/gcc/ada/get_targ.adb @@ -279,15 +279,6 @@ package body Get_Targ is end Get_Back_End_Config_File; ----------------------------- - -- Get_Max_Unaligned_Field -- - ----------------------------- - - function Get_Max_Unaligned_Field return Pos is - begin - return 64; -- Can be different on some targets - end Get_Max_Unaligned_Field; - - ----------------------------- -- Register_Back_End_Types -- ----------------------------- |