r123568 - /trunk/gcc/ada/exp_strm.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Fri Apr  6 10:21:24 2007
New Revision: 123568

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123568
Log:
2007-04-06  Ed Schonberg  <schonberg@adacore.com>

	* exp_strm.adb
	(Build_Mutable_Record_Write_Procedure): For an Unchecked_Union type, use
	 discriminant defaults.
	(Build_Record_Or_Elementary_Output_Procedure): Ditto.
	(Make_Component_List_Attributes): Ditto.


Modified:
    trunk/gcc/ada/exp_strm.adb