decl.c (gnat_to_gnu_entity): Do not bother about alias sets of derived types in ASIS...

	* gcc-interface/decl.c (gnat_to_gnu_entity): Do not bother about alias
	sets of derived types in ASIS mode.

From-SVN: r201705

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 17774187dc8928654c8a3b3a94773c35de0d3938..840dadf1937665f1a664a4b4585eec67e076fe52 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2013-08-13  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/decl.c (gnat_to_gnu_entity): Do not bother about alias
+       sets of derived types in ASIS mode.
+
 2013-08-13  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/decl.c (gnat_to_gnu_entity): Replace True with true.

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 551ab4454b11499e1ac318d5fae963c2a86caa44..26342e2a012afde493d0d55a788ee832a0e9c9a1 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -5153,7 +5153,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
         to conflict with Comp2 and an alias set copy is required.
 
         The language rules ensure the parent type is already frozen here.  */
-      if (Is_Derived_Type (gnat_entity))
+      if (Is_Derived_Type (gnat_entity) && !type_annotate_only)
        {
          tree gnu_parent_type = gnat_to_gnu_type (Etype (gnat_entity));
          relate_alias_sets (gnu_type, gnu_parent_type,