aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-exexpr-gcc.adb
diff options
context:
space:
mode:
authorTristan Gingold <gingold@adacore.com>2011-08-29 12:41:02 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2011-08-29 14:41:02 +0200
commit62380e66a503c97a2cf222ede1f5b2665bdbed38 (patch)
treee20c6f34889b4e167544eb4d0d0ee2788fa476cd /gcc/ada/a-exexpr-gcc.adb
parentc95aa61c547c0366a3698be8dea47faaac54b6e5 (diff)
downloadgcc-62380e66a503c97a2cf222ede1f5b2665bdbed38.zip
gcc-62380e66a503c97a2cf222ede1f5b2665bdbed38.tar.gz
gcc-62380e66a503c97a2cf222ede1f5b2665bdbed38.tar.bz2
a-exexpr.adb (Setup_Exception): Removed.
2011-08-29 Tristan Gingold <gingold@adacore.com> * 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. From-SVN: r178214
Diffstat (limited to 'gcc/ada/a-exexpr-gcc.adb')
-rw-r--r--gcc/ada/a-exexpr-gcc.adb23
1 files changed, 0 insertions, 23 deletions
diff --git a/gcc/ada/a-exexpr-gcc.adb b/gcc/ada/a-exexpr-gcc.adb
index 12202d8..43099d1 100644
--- a/gcc/ada/a-exexpr-gcc.adb
+++ b/gcc/ada/a-exexpr-gcc.adb
@@ -322,29 +322,6 @@ package body Exception_Propagation is
return URC_NO_REASON;
end CleanupUnwind_Handler;
- ---------------------
- -- Setup_Exception --
- ---------------------
-
- -- In the GCC-EH implementation of the propagation scheme, this
- -- subprogram should be understood as: Setup the exception occurrence
- -- stack headed at Current for a forthcoming raise of Excep.
-
- 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;
-
-------------------------
-- Setup_Current_Excep --
-------------------------