raise.c (__gnat_Unwind_RaiseException): Add prototype to avoid warning, and fix return type for the IN_RTS && !SJLJ case.
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
This commit is contained in:
parent
8c38a24fa0
commit
3d713bb882
|
@ -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
|
||||
|
|
|
@ -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;
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue