diff options
| author | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-29 18:45:03 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-29 18:45:03 +0100 |
| commit | 4565903525842e90c4fc5df51cc5dfa3cebfafbe (patch) | |
| tree | 84e043479e91b33e543375c19186765d10a6238d /gcc/ada/misc.c | |
| parent | 4b77bfab08b2154873311f36bd3e3f1fd37944c1 (diff) | |
| download | gcc-4565903525842e90c4fc5df51cc5dfa3cebfafbe.zip gcc-4565903525842e90c4fc5df51cc5dfa3cebfafbe.tar.gz gcc-4565903525842e90c4fc5df51cc5dfa3cebfafbe.tar.bz2 | |
* init.c:
(Raise_From_Signal_Handler, Propagate_Signal_Exception): Make arg
const.
(_gnat_error_handler): Make MSG const.
* sysdep.c: Fix localtime_r problem on LynxOS.
Also remove #elif to avoid warnings.
* misc.c (yyparse): Don't set up and register jmpbuf; remove decls
used by this.
* decl.c (annotate_value): Make SIZE unsigned to avoid warning.
From-SVN: r46609
Diffstat (limited to 'gcc/ada/misc.c')
| -rw-r--r-- | gcc/ada/misc.c | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 298bfc3..edd1d2d 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision: 1.5 $ + * $Revision$ * * * Copyright (C) 1992-2001 Free Software Foundation, Inc. * * * @@ -154,9 +154,6 @@ static char *convert_ada_name_to_qualified_name PARAMS ((char *)); /* For most front-ends, this is the parser for the language. For us, we process the GNAT tree. */ -#define Set_Jmpbuf_Address system__soft_links__set_jmpbuf_address_soft -extern void Set_Jmpbuf_Address (void *); - /* Declare functions we use as part of startup. */ extern void __gnat_initialize PARAMS((void)); extern void adainit PARAMS((void)); @@ -165,34 +162,17 @@ extern void _ada_gnat1drv PARAMS((void)); int yyparse () { - /* Make up what Gigi uses as a jmpbuf. */ - size_t jmpbuf[10]; - /* call the target specific initializations */ __gnat_initialize(); /* Call the front-end elaboration procedures */ adainit (); - /* Set up to catch unhandled exceptions. */ - if (__builtin_setjmp (jmpbuf)) - { - Set_Jmpbuf_Address (0); - abort (); - } - - /* This is only really needed in longjmp/setjmp mode exceptions - but we don't know any easy way to tell what mode the host is - compiled in, and it is harmless to do it unconditionally */ - - Set_Jmpbuf_Address (jmpbuf); - immediate_size_expand = 1; /* Call the front end */ _ada_gnat1drv (); - Set_Jmpbuf_Address (0); return 0; } |