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

	* 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

diff --git a/gcc/ada/a-exexpr.adb b/gcc/ada/a-exexpr.adb
index ea9ce671ca711da487a9f6c1ef53d760a6a4dabc..4c1a04c107e6832182bb1c03c71e57bbea78345a 100644 (file)
--- 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");
 
    ------------