diff options
Diffstat (limited to 'gcc/ada/init.c')
| -rw-r--r-- | gcc/ada/init.c | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/gcc/ada/init.c b/gcc/ada/init.c index fcf3af7dc4f..79655931b37 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -291,30 +291,6 @@ extern char *__gnat_get_code_loc (struct sigcontext *); extern void __gnat_set_code_loc (struct sigcontext *, char *); extern size_t __gnat_machine_state_length (void); -/* __gnat_adjust_context_for_raise - see comments along with the default - version later in this file. */ - -#define HAVE_GNAT_ADJUST_CONTEXT_FOR_RAISE - -void -__gnat_adjust_context_for_raise (int signo, void *context) -{ - struct sigcontext * sigcontext = (struct sigcontext *) context; - - /* The fallback code fetches the faulting insn address from sc_pc, so - adjust that when need be. For SIGFPE, the required adjustment depends - on the trap shadow situation (see man ieee). */ - if (signo == SIGFPE) - { - /* ??? We never adjust here, considering that sc_pc always - designates the instruction following the one which trapped. - This is not necessarily true but corresponds to what we have - always observed. */ - } - else - sigcontext->sc_pc ++; -} - static void __gnat_error_handler (int sig, siginfo_t *sip, struct sigcontext *context) @@ -323,10 +299,6 @@ __gnat_error_handler static int recurse = 0; const char *msg; - /* Adjusting is required for every fault context, so adjust for this one - now, before we possibly trigger a recursive fault below. */ - __gnat_adjust_context_for_raise (sig, context); - /* If this was an explicit signal from a "kill", just resignal it. */ if (SI_FROMUSER (sip)) { @@ -2104,7 +2076,7 @@ __gnat_adjust_context_for_raise (int signo ATTRIBUTE_UNUSED, { /* We used to compensate here for the raised from call vs raised from signal exception discrepancy with the GCC ZCX scheme, but this is now dealt with - generically (except for Alpha and IA-64), see PR other/26208. + generically (except for the IA-64), see GCC PR other/26208. *** Call vs signal exception discrepancy with GCC ZCX scheme *** |
