diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:24:50 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:24:50 +0000 |
| commit | 0e537804ef18f8188d21d9df07b35a836005248b (patch) | |
| tree | 10eab9dc34a26b27f29f988613150db488f745bb /gcc/ada/a-exexpr.adb | |
| parent | 1e918968a0fdc11c6198c2bb246c8ddff11baa61 (diff) | |
| download | gcc-0e537804ef18f8188d21d9df07b35a836005248b.tar.gz | |
* a-exexpr.adb (Others_Value, All_Others_Value): Change initial values
from 16#BEEF# to 16#7FFF# to avoid exceeding Integer'Last on 16-bit
targets (such as AAMP).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@91874 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-exexpr.adb')
| -rw-r--r-- | gcc/ada/a-exexpr.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/a-exexpr.adb b/gcc/ada/a-exexpr.adb index ea9ce671ca7..4c1a04c107e 100644 --- a/gcc/ada/a-exexpr.adb +++ b/gcc/ada/a-exexpr.adb @@ -275,11 +275,13 @@ package body Exception_Propagation is -- Currently, these only have their address taken and compared so there is -- no real point having whole exception data blocks allocated. In any case -- the types should match what gigi and the personality routine expect. + -- The initial value is an arbitrary value that will not exceed the range + -- of Integer on 16-bit targets (such as AAMP). - Others_Value : constant Integer := 16#BEEF#; + Others_Value : constant Integer := 16#7FFF#; pragma Export (C, Others_Value, "__gnat_others_value"); - All_Others_Value : constant Integer := 16#BEEF#; + All_Others_Value : constant Integer := 16#7FFF#; pragma Export (C, All_Others_Value, "__gnat_all_others_value"); ------------ |