From 910a2e4d8c25017c00098043c52a0ad8662272c8 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Wed, 27 Oct 2004 14:28:57 +0200 Subject: [PATCH] a-exexpr.adb (Setup_Key): Change initial value to 16#DEAD#... 2004-10-26 Gary Dismukes * a-exexpr.adb (Setup_Key): Change initial value to 16#DEAD#, for compatibility with type Unwind_Word on 16-bit targets such as AAMP. From-SVN: r89643 --- gcc/ada/a-exexpr.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/gcc/ada/a-exexpr.adb b/gcc/ada/a-exexpr.adb index 675af7c749e..913c0e8e186 100644 --- a/gcc/ada/a-exexpr.adb +++ b/gcc/ada/a-exexpr.adb @@ -224,15 +224,16 @@ package body Exception_Propagation is procedure End_Handler (GCC_Exception : GNAT_GCC_Exception_Access); pragma Export (C, End_Handler, "__gnat_end_handler"); + Setup_Key : constant := 16#DEAD#; -- To handle the case of a task "transferring" an exception occurrence to -- another task, for instance via Exceptional_Complete_Rendezvous, we need -- to be able to identify occurrences which have been Setup and not yet -- Propagated. We hijack one of the common header fields for that purpose, -- setting it to a special key value during the setup process, clearing it -- at the very beginning of the propagation phase, and expecting it never - -- to be reset to the special value later on. - - Setup_Key : constant := 16#DEAD_BEEF#; + -- to be reset to the special value later on. A 16-bit value is used rather + -- than a 32-bit value for static compatibility with 16-bit targets such as + -- AAMP (where type Unwind_Word will be 16 bits). function Is_Setup_And_Not_Propagated (E : EOA) return Boolean; -- 2.30.2