r244809 - in /trunk/gcc/ada: ChangeLog sem_ch13...

[charlet@gcc.gnu.org]

Author: charlet
Date: Mon Jan 23 13:31:43 2017
New Revision: 244809

URL: https://gcc.gnu.org/viewcvs?rev=244809&root=gcc&view=rev
Log:
2017-01-23  Ed Schonberg  <schonberg@adacore.com>

	* sem_prag.adb (Default_Initial_Condition): If the desired type
	declaration is a derived type declaration with discriminants,
	it is rewritten as a private type declaration.
	* sem_ch13.adb (Replace_Type_References_Generic,
	Visible_Component): A discriminated private type with descriminnts
	has components that must be rewritten as selected components
	if they appear as identifiers in an aspect expression such as
	a Default_Initial_Condition.
	* sem_util.adb (Defining_Entity): support N_Iterator_Specification
	nodes.


Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/sem_ch13.adb
    trunk/gcc/ada/sem_prag.adb
    trunk/gcc/ada/sem_util.adb