r135625 - /trunk/gcc/ada/exp_disp.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Tue May 20 12:46:19 2008
New Revision: 135625

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=135625
Log:
2008-05-20  Javier Miranda  <miranda@adacore.com>
	    Ed Schonberg  <schonberg@adacore.com>

	* exp_disp.adb (Make_DT, Make_Secondary_DT, Make_Tags): Avoid
	generating dispatch tables of locally defined tagged types statically.
	Remove implicit if-statement that is no longer required.
	(Expand_Dispatching_Call): If this is a call to an instance of the
	generic dispatching constructor, the type of the first argument may be
	a subtype of Tag, so always use the base type to recognize this case.


Modified:
    trunk/gcc/ada/exp_disp.adb