Make-lang.in
206 KB
-
init.c (__gnat_initialize): Add a new parameter eh which contains the address of… · 5f57ad31
init.c (__gnat_initialize): Add a new parameter eh which contains the address of the exception registration. * init.c (__gnat_initialize): Add a new parameter eh which contains the address of the exception registration. The Win32 version of this routine calls __gnat_install_SEH_handler() to initialize the SEH (Structured Exception Handling) handler. (__gnat_error_handler) [Win32]: Removed. Not needed as we use SEH (Structured Exception Handling) now. (__gnat_install_handler) [Win32]: Nothing to do now as we use SEH. (__gnat_initialize for ppc-vxworks): Adjust comments and the preprocessor condition protecting the call to the extra eh setup subprogram, which is only available for the ppc target. (__gnat_clear_exception_count): replaced reference to variable taskIdCurrent by call to taskIdSelf(), cleaner. * seh_init.c: New file. * Make-lang.in: (GNAT_ADA_OBJS): Add seh_init.o. (GNATBIND_OBJS): Idem. * misc.c (gnat_parse_file): Update call to __gnat_initialize. This routine takes a new parameter (a pointer to the exception registration for the SEH (Structured Exception Handling) support. * raise.h: (__gnat_install_SEH_handler): New prototype. Update copyright notice. * s-tassta.adb (Task_Wrapper): Declare the exception registration record and initialize it by calling __gnat_install_SEH_handler. From-SVN: r94816
Arnaud Charlet committed