r139480 - /trunk/gcc/ada/sem_util.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Fri Aug 22 14:56:32 2008
New Revision: 139480

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=139480
Log:
2008-08-22  Gary Dismukes  <dismukes@adacore.com>

	* sem_util.adb (Has_Preelaborable_Initialization): Revise checking of
	private types to allow for types derived from a private type with
	preelaborable initialization, but return False for a private extension
	(unless it has the pragma).


Modified:
    trunk/gcc/ada/sem_util.adb