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

[charlet@gcc.gnu.org]

Author: charlet
Date: Wed Jun  6 10:27:53 2007
New Revision: 125409

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=125409
Log:
2007-04-20  Robert Dewar  <dewar@adacore.com>

	* exp_strm.adb (Make_Field_Attributes): Avoid _Parent components that
	are interface type.
	(Build_Elementary_Input_Call): For floating-point use right type in the
	absence of strange size or stream size clauses.
	(Build_Elementary_Write_Call): Same fix
	(Has_Stream_Standard_Rep): Returns False if Stream_Size attribute
	set to value that does not match base type size.


Modified:
    trunk/gcc/ada/exp_strm.adb