r125457 - in /trunk/gcc/ada: a-except-2005.adb ...

[charlet@gcc.gnu.org]

Author: charlet
Date: Wed Jun  6 10:46:09 2007
New Revision: 125457

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=125457
Log:
2007-04-20  Thomas Quinot  <quinot@adacore.com>
	    Olivier Hainque  <hainque@adacore.com>

	* a-except-2005.ads, a-except-2005.adb
	(Raise_From_Controlled_Operation): New procedure in
	(private part of) Ada.Exceptions (standard runtime version). Used to
	provide informational exception message when Program_Error is raised as
	a result of an Adjust or Finalize operation propagating an exception.
	(Rmsg_28): Fix description for E.4(18) check.
	(Raise_Current_Excep): Call Debug_Raise_Exception just before
	propagation starts, to let debuggers know about the event in a reliable
	fashion.
	Take the address of E and dereference to make sure it is homed on stack
	and prevent the stores from being deleted, necessary for proper
	debugger behavior on "break exception" hits.
	(Local_Raise): Moved to System.Exceptions

	* s-finimp.adb (Raise_From_Finalize): Code to construct an appropriate
	exception message from the current occurrence and raise Program_Error
	has been moved to Ada.Exceptions.Raise_From_Controlled_Operation.


Modified:
    trunk/gcc/ada/a-except-2005.adb
    trunk/gcc/ada/a-except-2005.ads
    trunk/gcc/ada/s-finimp.adb