a-exexpr.adb (Unwind_Word): New data type.

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

From-SVN: r81250

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 80e49c378ed199a77c5a91f9b56b2142dd1d5bee..1892b94dcf303403c1cdf2c1839ad81b21592877 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,10 @@
+2004-04-28  Ulrich Weigand  <uweigand@de.ibm.com>
+
+       * 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.
+
 2004-04-27  Ed Schonberg  <schonberg@gnat.com>
 
        * a-wtmoio.ads: Formal type must be a modular type, not a signed

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

diff --git a/gcc/ada/raise.c b/gcc/ada/raise.c
index 9a965ef1515b0ddd1895ed53c3b3d16dbe8eecab..b0803ae8426126353c729e8da7493b6f8c6544f0 100644 (file)
--- a/gcc/ada/raise.c
+++ b/gcc/ada/raise.c
@@ -671,7 +671,7 @@ db_action_for (action_descriptor *action, _Unwind_Context *uw_context)
      {
      case unknown:
        db (DB_ACTIONS, "lpad @ 0x%x, record @ 0x%x\n",
-          ip, action->landing_pad, action->table_entry);
+          action->landing_pad, action->table_entry);
        break;
 
      case nothing: