raise.c (__gnat_Unwind_RaiseException): Add prototype to avoid warning, and fix retur...

	ada/9961
        * raise.c (__gnat_Unwind_RaiseException): Add prototype to avoid
        warning, and fix return type for the IN_RTS && !SJLJ case.

From-SVN: r63842

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 22faa324f3d6dddd834a2bb43f7955ddc7b7ab1f..009cd6ef862e939dce0a7980ac01e6b38d259917 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,8 +1,14 @@
+2003-03-05  Olivier Hainque  <hainque@gnat.com>
+
+       ada/9961
+        * raise.c (__gnat_Unwind_RaiseException): Add prototype to avoid
+        warning, and fix return type for the IN_RTS && !SJLJ case.
+
 2003-03-04  Tom Tromey  <tromey@redhat.com>
 
        * Make-lang.in (ada.tags): New target.
 
-2003-03-04  Olivier Hainque <hainque@act-europe.fr>
+2003-03-04  Olivier Hainque  <hainque@act-europe.fr>
 
        ada/9911
        * a-except.adb (Unwind_RaiseException): Import a GNAT specific

diff --git a/gcc/ada/raise.c b/gcc/ada/raise.c
index 4db4d20a4d03ddfccec49bbd734506a88cd9719f..a9841740d88027df5ef4979f403b39a4cbb64d54 100644 (file)
--- a/gcc/ada/raise.c
+++ b/gcc/ada/raise.c
@@ -88,10 +88,20 @@ __gnat_unhandled_terminate ()
 }
 
 /* Below is the code related to the integration of the GCC mechanism for
-   exception handling.  */
+   exception handling. Still work in progress. */
 
 #include "unwind.h"
 
+/* If the underlying GCC scheme for exception handling is SJLJ, the standard
+   propagation routine (_Unwind_RaiseException) is actually renamed using a
+   #define directive (see unwing-sjlj.c). We need a consistently named
+   interface to import from a-except, so stubs are defined here, at the end
+   of this file.  */
+
+_Unwind_Reason_Code
+__gnat_Unwind_RaiseException PARAMS ((struct _Unwind_Exception *));
+
+
 /* Exception Handling personality routine for Ada.
 
    ??? It is currently inspired from the one for C++, needs cleanups and
@@ -597,10 +607,7 @@ __gnat_eh_personality (version, actions, exception_class, ue_header, context)
 }
 
 
-/* If the underlying GCC scheme for exception handling is SJLJ, the standard
-   propagation routine (_Unwind_RaiseException) is actually renamed using a
-   #define directive (see unwing-sjlj.c). We need a consistently named
-   interface to import from a-except, so stubs are defined here.  */
+/* Stubs for the libgcc unwinding interface, to be imported by a-except.  */ 
 
 #ifdef __USING_SJLJ_EXCEPTIONS__
 
@@ -614,7 +621,7 @@ __gnat_Unwind_RaiseException (e)
 #else
 /* __USING_SJLJ_EXCEPTIONS__ not defined */
 
-void
+_Unwind_Reason_Code
 __gnat_Unwind_RaiseException (e)
      struct _Unwind_Exception *e;
 {