diff options
Diffstat (limited to 'gcc/ada/init.c')
| -rw-r--r-- | gcc/ada/init.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/init.c b/gcc/ada/init.c index caf3adc98d7..81956c05b7b 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -1395,8 +1395,12 @@ __gnat_handle_vms_condition (int *sigargs, void *mechargs) #else exception = &constraint_error; msg = "arithmetic error"; +#ifndef __alpha__ + /* No need to adjust pc on alpha: the pc is already on the instruction + after the trapping one. */ __gnat_adjust_context_for_raise (0, (void *)mechargs); #endif +#endif break; default: |