r135916 - /trunk/gcc/ada/exp_ch4.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Mon May 26 12:45:19 2008
New Revision: 135916

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=135916
Log:
2008-05-26  Hristian Kirtchev  <kirtchev@adacore.com>

	* exp_ch4.adb (Expand_N_Type_Conversion): Minor code reformatting.
	Generate a tag check when the result subtype of a function, defined by
	an access definition, designates a specific tagged type.
	(Make_Tag_Check): New routine.

Modified:
    trunk/gcc/ada/exp_ch4.adb