r111193 - /trunk/gcc/ada/sem_ch3.adb

[charlet at gcc dot gnu dot org]

Author: charlet
Date: Fri Feb 17 16:08:08 2006
New Revision: 111193

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=111193
Log:
2006-02-17  Javier Miranda  <miranda@adacore.com>
	    Ed Schonberg  <schonberg@adacore.com>

	* sem_ch3.adb (Build_Discriminated_Subtype): In case of concurrent
	type we cannot inherit the primitive operations; we inherit the
	Corresponding_Record_Type (which has the list of primitive operations).
	(Check_Anonymous_Access_Types): When creating anonymous access types for
	access components, use Rewrite in order to preserve the tree structure,
	for ASIS use.
	(Analyze_Object_Declaration): For limited types with access
	discriminants with defaults initialized by an aggregate, obtain
	subtype from aggregate as for other mutable types.
	(Derived_Type_Declaration): If the derived type is a limited interface,
	set the corresponding flag (Is_Limited_Record is not sufficient).


Modified:
    trunk/gcc/ada/sem_ch3.adb