* alias.c (get_alias_set): Add cut-off for recursion.

From-SVN: r231505

gcc/ChangeLog

@@ -88,6 +88,7 @@
 	(nonoverlapping_component_refs_of_decl_p): Update sanity check.
 	(decl_refs_may_alias_p): Use compare_base_decls.
 	* alias.c: Include cgraph.h
+	(get_alias_set): Add cut-off for recursion.
 	(rtx_equal_for_memref_p): Use rtx_equal_for_memref_p.
 	(compare_base_decls): New function.
 	(base_alias_check): Likewise.

gcc/testsuite/ChangeLog

+2015-12-10  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gnat.dg/specs/access1.ads: New test.
+	* gnat.dg/specs/access2.ads: Likewise.
+
 2015-12-10  Jakub Jelinek  <jakub@redhat.com>
 
 	PR tree-optimization/68785

gcc/testsuite/gnat.dg/specs/access1.ads

+--  { dg-do compile }
+
+package Access1 is
+
+   type R;
+   type S is access R;
+   type R is new S;
+
+end Access1;

gcc/testsuite/gnat.dg/specs/access2.ads

+--  { dg-do compile }
+
+package Access2 is
+
+    type Priv;
+    type Inc is access Priv;
+    type Priv is access Inc;
+    C : constant Priv := new Inc;
+
+end Access2;