From 87f07a97ade1d99594ede4e334ea7dbbd907aabc Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 8 Dec 2004 12:24:50 +0100 Subject: [PATCH] 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 --- gcc/ada/a-exexpr.adb | 6 ++++-- 1 file 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"); ------------ -- 2.30.2