This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Patch to fix ada/9961 (bootstrap failure)
- From: Geert Bosch <bosch at darwin dot gnat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Wed, 5 Mar 2003 11:26:17 -0500 (EST)
- Subject: [Ada] Patch to fix ada/9961 (bootstrap failure)
Bootstrapped on i686-pc-linux-gnu on both mainline and branch,
where the build log does not show the warning anymore.
Applied to 3.3 branch and head.
2003-03-05 Olivier Hainque <hainque at gnat dot com>
ada/9961
* raise.c : (__gnat_Unwind_RaiseException): Add prototype to avoid
warning, and fix return type for the IN_RTS && !SJLJ case.
Index: raise.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/raise.c,v
retrieving revision 1.6
diff -u -p -r1.6 raise.c
--- raise.c 4 Mar 2003 20:14:59 -0000 1.6
+++ raise.c 5 Mar 2003 16:01:41 -0000
@@ -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,
}
-/* 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;
{