diff options
| author | uweigand <uweigand@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-04-28 14:36:34 +0000 |
|---|---|---|
| committer | uweigand <uweigand@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-04-28 14:36:34 +0000 |
| commit | 4902721ea4bad292163fa05caec389e21c1d6223 (patch) | |
| tree | f5b4d8eaeedfea06372e009ae07353dd04f8d26a /gcc/ada/a-exexpr.adb | |
| parent | c9ba40558510aeee8814a7f907222fe0b0cfd377 (diff) | |
| download | gcc-4902721ea4bad292163fa05caec389e21c1d6223.tar.gz | |
* a-exexpr.adb (Unwind_Word): New data type.
(Unwind_Exception): Use it as type of Private1 and Private2.
* raise.c (db_action_for): Fix debug printf.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81250 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-exexpr.adb')
| -rw-r--r-- | gcc/ada/a-exexpr.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/a-exexpr.adb b/gcc/ada/a-exexpr.adb index faa89a3744c..ba554f9bc2d 100644 --- a/gcc/ada/a-exexpr.adb +++ b/gcc/ada/a-exexpr.adb @@ -102,11 +102,14 @@ package body Exception_Propagation is GNAT_Exception_Class : constant Exception_Class := 16#474e552d41646100#; -- "GNU-Ada\0" + type Unwind_Word is mod 2 ** System.Word_Size; + for Unwind_Word'Size use System.Word_Size; + type Unwind_Exception is record Class : Exception_Class := GNAT_Exception_Class; Cleanup : System.Address := System.Null_Address; - Private1 : Integer; - Private2 : Integer; + Private1 : Unwind_Word; + Private2 : Unwind_Word; end record; pragma Convention (C, Unwind_Exception); |