diff options
Diffstat (limited to 'gcc/ada/einfo.adb')
| -rw-r--r-- | gcc/ada/einfo.adb | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index fad178003e5..7b705b02f20 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -217,7 +217,6 @@ package body Einfo is -- DT_Offset_To_Top_Func Node25 -- Task_Body_Procedure Node25 - -- Dispatch_Table_Wrapper Node16 -- Overridden_Operation Node26 -- Package_Instantiation Node26 -- Related_Interface Node26 @@ -843,12 +842,6 @@ package body Einfo is return Uint15 (Id); end Discriminant_Number; - function Dispatch_Table_Wrapper (Id : E) return E is - begin - pragma Assert (Is_Tagged_Type (Id)); - return Node26 (Implementation_Base_Type (Id)); - end Dispatch_Table_Wrapper; - function DT_Entry_Count (Id : E) return U is begin pragma Assert (Ekind (Id) = E_Component and then Is_Tag (Id)); @@ -3123,12 +3116,6 @@ package body Einfo is Set_Uint15 (Id, V); end Set_Discriminant_Number; - procedure Set_Dispatch_Table_Wrapper (Id : E; V : E) is - begin - pragma Assert (Is_Tagged_Type (Id) and then Id = Base_Type (Id)); - Set_Node26 (Id, V); - end Set_Dispatch_Table_Wrapper; - procedure Set_DT_Entry_Count (Id : E; V : U) is begin pragma Assert (Ekind (Id) = E_Component); @@ -8266,10 +8253,6 @@ package body Einfo is Write_Str ("Static_Initialization"); end if; - when E_Record_Type | - E_Record_Type_With_Private => - Write_Str ("Dispatch_Table_Wrapper"); - when others => Write_Str ("Field26??"); end case; |