From 3a7fc3d614abf9a85891594846f87e16c858f635 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 5 Sep 2005 07:46:59 +0000 Subject: PR ada/23646 * s-mastop-tru64.adb, s-mastop-irix.adb, s-mastop-vms.adb (Enter_Handler, Set_Signal_Machine_State): Removed, no longer used. Remove reference to System.Exceptions. * s-mastop-x86.adb: Removed, no longer used. * s-traceb-mastop.adb: Adjust calls to Pop_Frame. * a-excach.adb: Minor reformatting. * a-except.ads, a-except.adb: Remove global Warnings (Off) pragma, and instead fix new warnings that were hidden by this change. (AAA, ZZZ): Removed, replaced by... (Code_Address_For_AAA, Code_Address_For_ZZZ): ... these functions, who are used instead of constants, to help make Ada.Exception truly preelaborate. (Rcheck_*, Raise_Constraint_Error, Raise_Program_Error, Raise_Storage_Error): File is now a System.Address, to simplify code. (Elab code): Removed, no longer used. (Null_Occurrence): Remove Warnings Off and make this construct preelaborate. Remove code related to front-end zero cost exception handling, since it is no longer used. Remove -gnatL/-gnatZ switches. * a-exexda.adb (Append_Info_Exception_Name, Set_Exception_C_Msg): Update use of Except.Msg. * gnat1drv.adb, inline.adb, bindgen.adb, debug.adb, exp_ch11.ads, freeze.adb, frontend.adb, lib.adb, exp_ch11.adb: Remove code related to front-end zero cost exception handling, since it is no longer used. Remove -gnatL/-gnatZ switches. * lib-writ.ads: Minor reformatting Remove doc of UX * Makefile.rtl: Remove references to s-except*, s-mastop-x86* * Make-lang.in: Remove references to s-except.ads * s-except.ads: Removed, no longer used. * s-mastop.ads, s-mastop.adb: (Enter_Handler, Set_Signal_Machine_State): Removed, no longer used. Remove reference to System.Exceptions. * raise.h, usage.adb, targparm.adb, targparm.ads, switch-m.adb, switch-b.adb: Remove code related to front-end zero cost exception handling, since it is no longer used. Remove -gnatL/-gnatZ switches. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103848 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/s-mastop-vms.adb | 64 +----------------------------------------------- 1 file changed, 1 insertion(+), 63 deletions(-) (limited to 'gcc/ada/s-mastop-vms.adb') 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; -- cgit v1.2.1