From: ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 10 Dec 2015 12:12:59 +0000 (+0000)
Subject: 	* alias.c (get_alias_set): Add cut-off for recursion.
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e237aa71aa342493ca332eb0d2c7489f6adda894;p=thirdparty%2Fgcc.git

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@231505 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index aca8e944477b..e68d68876790 100644
--- a/gcc/ChangeLog
+++ b/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.
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3706aaed090d..131596c06997 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/testsuite/gnat.dg/specs/access1.ads b/gcc/testsuite/gnat.dg/specs/access1.ads
new file mode 100644
index 000000000000..2464e484abd5
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/access1.ads
@@ -0,0 +1,9 @@
+--  { dg-do compile }
+
+package Access1 is
+
+   type R;
+   type S is access R;
+   type R is new S;
+
+end Access1;
diff --git a/gcc/testsuite/gnat.dg/specs/access2.ads b/gcc/testsuite/gnat.dg/specs/access2.ads
new file mode 100644
index 000000000000..ff0046f8ceff
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/access2.ads
@@ -0,0 +1,10 @@
+--  { 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;