diff options
Diffstat (limited to 'gcc/ada/s-mastop-vms.adb')
| -rw-r--r-- | gcc/ada/s-mastop-vms.adb | 64 |
1 files changed, 1 insertions, 63 deletions
diff --git a/gcc/ada/s-mastop-vms.adb b/gcc/ada/s-mastop-vms.adb index 764fe087538..9e867285007 100644 --- a/gcc/ada/s-mastop-vms.adb +++ b/gcc/ada/s-mastop-vms.adb @@ -41,7 +41,6 @@ with Unchecked_Conversion; package body System.Machine_State_Operations is - use System.Exceptions; subtype Cond_Value_Type is Unsigned_Longword; -- Record layouts copied from Starlet. @@ -148,48 +147,6 @@ package body System.Machine_State_Operations is (Memory.Alloc (Invo_Handle_Type'Max_Size_In_Storage_Elements)); end Allocate_Machine_State; - ------------------- - -- Enter_Handler -- - ------------------- - - procedure Enter_Handler (M : Machine_State; Handler : Handler_Loc) is - procedure Get_Invo_Context ( - Result : out Unsigned_Longword; -- return value - Invo_Handle : Invo_Handle_Type; - Invo_Context : out Invo_Context_Blk_Type); - - pragma Interface (External, Get_Invo_Context); - - pragma Import_Valued_Procedure (Get_Invo_Context, "LIB$GET_INVO_CONTEXT", - (Unsigned_Longword, Invo_Handle_Type, Invo_Context_Blk_Type), - (Value, Value, Reference)); - - ICB : Invo_Context_Blk_Type; - - procedure Goto_Unwind ( - Status : out Cond_Value_Type; -- return value - Target_Invo : Address := Address_Zero; - Target_PC : Address := Address_Zero; - New_R0 : Unsigned_Quadword := Unsigned_Quadword'Null_Parameter; - New_R1 : Unsigned_Quadword := Unsigned_Quadword'Null_Parameter); - - pragma Interface (External, Goto_Unwind); - - pragma Import_Valued_Procedure - (Goto_Unwind, "SYS$GOTO_UNWIND", - (Cond_Value_Type, Address, Address, - Unsigned_Quadword, Unsigned_Quadword), - (Value, Reference, Reference, - Reference, Reference)); - - Status : Cond_Value_Type; - - begin - Get_Invo_Context (Status, To_Invo_Handle_Access (M).all, ICB); - Goto_Unwind - (Status, System.Address (To_Invo_Handle_Access (M).all), Handler); - end Enter_Handler; - ---------------- -- Fetch_Code -- ---------------- @@ -261,12 +218,7 @@ package body System.Machine_State_Operations is -- Pop_Frame -- --------------- - procedure Pop_Frame - (M : Machine_State; - Info : Subprogram_Info_Type) - is - pragma Warnings (Off, Info); - + procedure Pop_Frame (M : Machine_State) is procedure Get_Prev_Invo_Handle ( Result : out Invo_Handle_Type; -- return value ICB : in Invo_Handle_Type); @@ -321,18 +273,4 @@ package body System.Machine_State_Operations is Pop_Frame (M, System.Null_Address); end Set_Machine_State; - ------------------------------ - -- Set_Signal_Machine_State -- - ------------------------------ - - procedure Set_Signal_Machine_State - (M : Machine_State; - Context : System.Address) - is - pragma Warnings (Off, M); - pragma Warnings (Off, Context); - begin - null; - end Set_Signal_Machine_State; - end System.Machine_State_Operations; |