r139465 - /trunk/gcc/ada/exp_tss.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Fri Aug 22 13:26:28 2008
New Revision: 139465

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=139465
Log:
2008-08-22  Ed Schonberg  <schonberg@adacore.com>

	* exp_tss.adb:
	(Base_Init_Proc): For a protected subtype, use the base type of the
	corresponding record to locate the propoer initialization procedure.


Modified:
    trunk/gcc/ada/exp_tss.adb