diff options
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 12202d8b120..43099d1ad9b 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 -- ------------------------- |