diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-14 13:20:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-14 13:20:51 +0000 |
| commit | b885563eb48ddc219b2d3933bd0c87401ce03570 (patch) | |
| tree | 25b7f77c7ccd6fe8aacc3ac9861cb7cd9f5d6e8a /gcc/ada/s-vmexta.adb | |
| parent | d68149781ea19beba0a1fd30a6c129d8f07b5417 (diff) | |
| download | gcc-b885563eb48ddc219b2d3933bd0c87401ce03570.tar.gz | |
2013-10-14 Tristan Gingold <gingold@adacore.com>
* exp_prag.adb (Expand_Pragma_Import_Export_Exception): Fix
target type for code of VMS imported exception.
* init.c: Replace Exception_Code by void *.
* s-vmexta.adb (Hash, Base_Code_In): Adjust code after changing
the type of Exception_Code.
2013-10-14 Vincent Celier <celier@adacore.com>
* prj.ads: Minor comment updates.
* prj-attr.adb: New attribute Library_Rpath_Options.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@203544 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-vmexta.adb')
| -rw-r--r-- | gcc/ada/s-vmexta.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/s-vmexta.adb b/gcc/ada/s-vmexta.adb index fb454cfc9a3..1164ff8994f 100644 --- a/gcc/ada/s-vmexta.adb +++ b/gcc/ada/s-vmexta.adb @@ -33,6 +33,7 @@ with System.HTable; pragma Elaborate_All (System.HTable); +with System.Storage_Elements; use System.Storage_Elements; package body System.VMS_Exception_Table is @@ -80,7 +81,7 @@ package body System.VMS_Exception_Table is (Code : Exception_Code) return Exception_Code is begin - return Code and not 2#0111#; + return To_Address (To_Integer (Code) and not 2#0111#); end Base_Code_In; --------------------- @@ -136,7 +137,8 @@ package body System.VMS_Exception_Table is Exception_Code (HTable_Headers'Last - HTable_Headers'First + 1); begin - return HTable_Headers (F mod Headers_Magnitude + 1); + return HTable_Headers + (To_Address ((To_Integer (F) mod To_Integer (Headers_Magnitude)) + 1)); end Hash; ---------------------------- |