diff options
| author | Tristan Gingold <gingold@adacore.com> | 2011-08-29 12:41:02 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 14:41:02 +0200 |
| commit | 62380e66a503c97a2cf222ede1f5b2665bdbed38 (patch) | |
| tree | e20c6f34889b4e167544eb4d0d0ee2788fa476cd /gcc/ada/a-exexpr-gcc.adb | |
| parent | c95aa61c547c0366a3698be8dea47faaac54b6e5 (diff) | |
| download | gcc-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.adb | 23 |
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 -- ------------------------- |