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

gcc/ada/ChangeLog

+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

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);

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: