a-exexpr.adb (Others_Value, [...]): Change initial values from 16#BEEF# to 16#7FFF# to avoid exceeding Integer'Last...

* 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).

From-SVN: r91874
This commit is contained in:
Arnaud Charlet 2004-12-08 12:24:50 +01:00
parent 8cd9e2ac30
commit 87f07a97ad
1 changed files with 4 additions and 2 deletions

View File

@ -275,11 +275,13 @@ package body Exception_Propagation is
-- Currently, these only have their address taken and compared so there 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 -- no real point having whole exception data blocks allocated. In any case
-- the types should match what gigi and the personality routine expect. -- 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"); 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"); pragma Export (C, All_Others_Value, "__gnat_all_others_value");
------------ ------------