diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-02-10 14:54:45 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-02-10 14:54:45 +0100 |
| commit | 5f57ad31792778dd585481c39f0deffef3aaa0a5 (patch) | |
| tree | 260cb614852d6263229864541810297807d70342 /gcc/ada/Make-lang.in | |
| parent | 16e845ef3dcb66829c8b5f086164cc7540093a73 (diff) | |
| download | gcc-5f57ad31792778dd585481c39f0deffef3aaa0a5.zip gcc-5f57ad31792778dd585481c39f0deffef3aaa0a5.tar.gz gcc-5f57ad31792778dd585481c39f0deffef3aaa0a5.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/Make-lang.in')
| -rw-r--r-- | gcc/ada/Make-lang.in | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/Make-lang.in b/gcc/ada/Make-lang.in index 9a03faf..220b356 100644 --- a/gcc/ada/Make-lang.in +++ b/gcc/ada/Make-lang.in @@ -146,7 +146,7 @@ GNAT_ADA_OBJS = ada/ada.o ada/a-charac.o ada/a-chlat1.o ada/a-except.o \ ada/stylesw.o ada/validsw.o ada/system.o ada/table.o ada/targparm.o \ ada/tbuild.o ada/tree_gen.o ada/tree_io.o ada/treepr.o ada/treeprs.o \ ada/ttypef.o ada/ttypes.o ada/types.o ada/uintp.o ada/uname.o ada/urealp.o \ - ada/usage.o ada/widechar.o ada/s-crtl.o + ada/usage.o ada/widechar.o ada/s-crtl.o ada/seh_init.o # Object files for gnat executables GNAT1_ADA_OBJS = $(GNAT_ADA_OBJS) ada/back_end.o ada/gnat1drv.o @@ -161,6 +161,7 @@ GNATBIND_OBJS = \ ada/cstreams.o \ ada/final.o \ ada/init.o \ + ada/seh_init.o \ ada/link.o \ ada/raise.o \ ada/tracebak.o \ |