diff options
Diffstat (limited to 'gcc/ada/a-exexpr-gcc.adb')
| -rw-r--r-- | gcc/ada/a-exexpr-gcc.adb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gcc/ada/a-exexpr-gcc.adb b/gcc/ada/a-exexpr-gcc.adb index 014b48f..4d651d5 100644 --- a/gcc/ada/a-exexpr-gcc.adb +++ b/gcc/ada/a-exexpr-gcc.adb @@ -455,18 +455,6 @@ package body Exception_Propagation is Unhandled_Except_Handler (GCC_Exception); end Propagate_GCC_Exception; - ------------------------------ - -- Unhandled_Except_Handler -- - ------------------------------ - - procedure Unhandled_Except_Handler - (GCC_Exception : not null GCC_Exception_Access) - is - begin - Setup_Current_Excep (GCC_Exception); - Unhandled_Exception_Terminate; - end Unhandled_Except_Handler; - ------------------------- -- Propagate_Exception -- ------------------------- @@ -517,6 +505,18 @@ package body Exception_Propagation is Propagate_GCC_Exception (To_GCC_Exception (GCC_Exception)); end Propagate_Exception; + ------------------------------ + -- Unhandled_Except_Handler -- + ------------------------------ + + procedure Unhandled_Except_Handler + (GCC_Exception : not null GCC_Exception_Access) + is + begin + Setup_Current_Excep (GCC_Exception); + Unhandled_Exception_Terminate; + end Unhandled_Except_Handler; + ------------- -- EID_For -- ------------- |