mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-22 12:49:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
* 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
This commit is contained in:
Ulrich Weigand 2004-04-28 14:36:34 +00:00 committed by Ulrich Weigand
parent c2e2375e23
commit e8c2eedc9b
3 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/ChangeLog
View File

@ -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

7
gcc/ada/a-exexpr.adb
View File

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

2
gcc/ada/raise.c
View File

@ -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: