r125400 - in /trunk/gcc/ada: exp_ch7.adb exp_ch...

[charlet@gcc.gnu.org]

Author: charlet
Date: Wed Jun  6 10:26:05 2007
New Revision: 125400

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=125400
Log:
2007-04-20  Ed Schonberg  <schonberg@adacore.com>
	    Thomas Quinot  <quinot@adacore.com>

	* exp_ch7.ads, exp_ch7.adb (Expand_Cleanup_Actions): Set Sloc of
	inserted cleanup code appropriately for GDB use.
	(Make_Deep_Proc): Use Make_Handler_For_Ctrl_Operation to create
	exception handler for Deep_Adjust or Deep_Finalize.
	(Make_Handler_For_Ctrl_Operation): New subprogram. When runtime entity
	Raise_From_Controlled_Operation is available, use a call to that
	subprogram instead of a plain "raise Program_Error" node to raise
	Program_Error if an exception is propagated from an Adjust or Finalize
	operation.
	(Insert_Actions_In_Scope_Around): If the statement to be wrapped
	appears in the optional statement list of a triggering alternative, the
	scope actions can be inserted directly there, and not in the list that
	includes the asynchronous select itself.


Modified:
    trunk/gcc/ada/exp_ch7.adb
    trunk/gcc/ada/exp_ch7.ads