This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [patch Ada]: Fix PR/55445 also for Ada's SEH-exception-mechanism
- From: Arnaud Charlet <charlet at adacore dot com>
- To: Kai Tietz <ktietz70 at googlemail dot com>
- Cc: GCC Patches <gcc-patches at gcc dot gnu dot org>
- Date: Tue, 23 Apr 2013 11:18:38 +0200
- Subject: Re: [patch Ada]: Fix PR/55445 also for Ada's SEH-exception-mechanism
- References: <CAEwic4YmMJ=hUvtnZ8RQe1NV_cvxc=mgHc5e0o8hRkBTwqW5Rw at mail dot gmail dot com>
> --- raise-gcc.c (Revision 198124)
> +++ raise-gcc.c (Arbeitskopie)
> @@ -1019,7 +1019,7 @@ extern void __gnat_notify_unhandled_exception
> (str
>
> #ifdef __USING_SJLJ_EXCEPTIONS__
> #define PERSONALITY_FUNCTION __gnat_personality_sj0
> -#elif defined(__SEH__)
> +#elif defined (__SEH__) && !defined (__USING_SJLJ_EXCEPTIONS__)
This test shouldn't be needed, since we already test
__USING_SJLJ_EXCEPTIONS__ above.
> #define PERSONALITY_FUNCTION __gnat_personality_imp
> #else
> #define PERSONALITY_FUNCTION __gnat_personality_v0
> @@ -1056,7 +1056,7 @@ typedef int version_arg_t;
> typedef _Unwind_Action phases_arg_t;
> #endif
>
> -#ifdef __SEH__
> +#if defined (__SEH__) && !defined (__USING_SJLJ_EXCEPTIONS__)
> static
> #endif
> _Unwind_Reason_Code
> @@ -1222,7 +1222,7 @@ __gnat_Unwind_ForcedUnwind (_Unwind_Exception
> *e,
> #endif
> }
>
> -#ifdef __SEH__
> +#if defined (__SEH__) && !defined (__USING_SJLJ_EXCEPTIONS__)
>
> #define STATUS_USER_DEFINED (1U << 29)
Rest looks OK.