r125394 - /trunk/gcc/ada/exp_ch13.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Wed Jun  6 10:24:22 2007
New Revision: 125394

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=125394
Log:
2007-04-20  Ed Schonberg  <schonberg@adacore.com>
	    Gary Dismukes  <dismukes@adacore.com>

	* exp_ch13.adb (Expand_N_Attribute_Definition_Clause, case 'Address):
	If the initialization is the equivalent aggregate of the initialization
	procedure of the type, do not remove it.
	(Expand_N_Attribute_Definition_Clause): Exclude access variables
	initialized to null from having their expression reset to empty and
	note this exception in the comment.


Modified:
    trunk/gcc/ada/exp_ch13.adb