From 7b047578f22225a362e6da37f4fa100a5a3742a8 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 29 Aug 2011 12:41:02 +0000 Subject: 2011-08-29 Tristan Gingold * a-exexpr.adb (Setup_Exception): Removed. * a-exexpr-gcc.adb (Setup_Exception): Removed. * a-except.adb (Exception_Propagation): Removed. * a-except-2005.adb (Setup_Exception): Removed. (Reraise): Remove call to Setup_Exception. (Reraise_Occurrence): Ditto. (Reraise_Occurrence_Always): Ditto. (Reraise_Occurrence_No_Defer): Ditto. (Transfer_Occurrence): Ditto. * a-exexda.adb (Set_Exception_C_Msg): Remove call to Setup_Exception. (Set_Exception_Msg): Ditto. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178214 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/a-exexpr.adb | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'gcc/ada/a-exexpr.adb') diff --git a/gcc/ada/a-exexpr.adb b/gcc/ada/a-exexpr.adb index b58ca23b0f9..cd7598b885f 100644 --- a/gcc/ada/a-exexpr.adb +++ b/gcc/ada/a-exexpr.adb @@ -57,24 +57,6 @@ package body Exception_Propagation is pragma No_Return (builtin_longjmp); pragma Import (Intrinsic, builtin_longjmp, "__builtin_longjmp"); - --------------------- - -- Setup_Exception -- - --------------------- - - procedure Setup_Exception - (Excep : EOA; - Current : EOA; - Reraised : Boolean := False) - is - pragma Unreferenced (Excep, Current, Reraised); - begin - -- In the GNAT-SJLJ case this "stack" only exists implicitly, by way of - -- local occurrence declarations together with save/restore operations - -- generated by the front-end, and this routine has nothing to do. - - null; - end Setup_Exception; - ------------------------- -- Propagate_Exception -- ------------------------- -- cgit v1.2.1