diff options
Diffstat (limited to 'gcc/ada/einfo.adb')
| -rw-r--r-- | gcc/ada/einfo.adb | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 038fe39..7e0eaaa 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -115,7 +115,6 @@ package body Einfo is -- RM_Size Uint13 -- Alignment Uint14 - -- First_Optional_Parameter Node14 -- Normalized_Position Uint14 -- Shadow_Entities List14 @@ -1266,12 +1265,6 @@ package body Einfo is return Node17 (Id); end First_Literal; - function First_Optional_Parameter (Id : E) return E is - begin - pragma Assert (Ekind_In (Id, E_Function, E_Procedure)); - return Node14 (Id); - end First_Optional_Parameter; - function First_Private_Entity (Id : E) return E is begin pragma Assert (Ekind_In (Id, E_Package, E_Generic_Package) @@ -4004,12 +3997,6 @@ package body Einfo is Set_Node17 (Id, V); end Set_First_Literal; - procedure Set_First_Optional_Parameter (Id : E; V : E) is - begin - pragma Assert (Ekind_In (Id, E_Function, E_Procedure)); - Set_Node14 (Id, V); - end Set_First_Optional_Parameter; - procedure Set_First_Private_Entity (Id : E; V : E) is begin pragma Assert (Ekind_In (Id, E_Package, E_Generic_Package) @@ -8178,18 +8165,6 @@ package body Einfo is end if; end Underlying_Type; - --------------- - -- Vax_Float -- - --------------- - - -- To be removed ??? - - function Vax_Float (Id : E) return B is - pragma Unreferenced (Id); - begin - return False; - end Vax_Float; - ------------------------ -- Write_Entity_Flags -- ------------------------ @@ -8891,10 +8866,6 @@ package body Einfo is E_Loop_Parameter => Write_Str ("Alignment"); - when E_Function | - E_Procedure => - Write_Str ("First_Optional_Parameter"); - when E_Component | E_Discriminant => Write_Str ("Normalized_Position"); |