diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-03-05 16:09:55 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-03-05 16:09:55 +0000 |
| commit | d69de5b2f3c180ab3f954ebd53b5aca2382e9926 (patch) | |
| tree | c6bf3a99574c35a3d8549df2d29d84986c275f71 /gcc/ada | |
| parent | 2ea89eeae77b0be52ac02e1b22ea35d0d1598b1f (diff) | |
| download | gcc-d69de5b2f3c180ab3f954ebd53b5aca2382e9926.tar.gz | |
ada/9961
* raise.c (__gnat_Unwind_RaiseException): Add prototype to avoid
warning, and fix return type for the IN_RTS && !SJLJ case.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@63842 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/ada/raise.c | 19 |
2 files changed, 20 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 22faa324f3d..009cd6ef862 100644 --- 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 4db4d20a4d0..a9841740d88 100644 --- 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; { |