diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:43:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:43:45 +0000 |
| commit | 20e13d022742230e7bd1ee33e51e3e64d3cfc982 (patch) | |
| tree | 3fdeee005736db3b337ad6cec2d088303c8bb89a /gcc/ada/init.c | |
| parent | e1a0cc7b7e807e6f0ae790da1a452af403121f9e (diff) | |
| download | gcc-20e13d022742230e7bd1ee33e51e3e64d3cfc982.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133586 138bc75d-0d04-0410-961f-82ee72b054a4
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: |