diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:43:45 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:43:45 +0100 |
| commit | bc9bb02d4ec4130e7e6ffdbb29f6fc57b4137a6c (patch) | |
| tree | 3fdeee005736db3b337ad6cec2d088303c8bb89a /gcc/ada/init.c | |
| parent | f53f9dd7812d03d2301d3b3ff6d81bcbed9455d3 (diff) | |
| download | gcc-bc9bb02d4ec4130e7e6ffdbb29f6fc57b4137a6c.zip gcc-bc9bb02d4ec4130e7e6ffdbb29f6fc57b4137a6c.tar.gz gcc-bc9bb02d4ec4130e7e6ffdbb29f6fc57b4137a6c.tar.bz2 | |
[multiple changes]
2008-03-26 Tristan Gingold <gingold@adacore.com>
* init.c: Do not adjust pc for HPARITH on alpha/vms.
2008-03-26 Robert Dewar <dewar@adacore.com>
* lib-xref.adb: (OK_To_Set_Reference): New function
(Generate_Reference): Don't set referenced from occurrence in Warnings,
Unmodified, or Unreferenced pragma
2008-03-26 Robert Dewar <dewar@adacore.com>
* alloc.ads: Add entries for Warnings_Off_Pragmas table
2008-03-26 GNAT Script <nobody@adacore.com>
* Make-lang.in: Makefile automatically updated
From-SVN: r133586
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 caf3adc..81956c05 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: |