re PR ada/17986 (Compile error for make.adb breaks bootstrap)

2004-11-22  Andrew Pinski  <pinskia@physics.uc.edu>

        PR ada/17986
        * ada-tree.h (lang_tree_node): Set chain_next to be the chain of the
        tree.

From-SVN: r91013

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ac42b9833795eef3ee3db1c7234bef9614a35464..55eae1a80e2ca36b5bb3265fcbed1566d7645c49 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2004-11-22  Andrew Pinski  <pinskia@physics.uc.edu>
+
+       PR ada/17986
+       * ada-tree.h (lang_tree_node): Set chain_next to be the chain of the
+       tree.
+
 2004-11-21  Andreas Jaeger  <aj@suse.de>
 
        * stylesw.adb: Change Style_Check_Subprogram_Order to

diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h
index c087f7851ef494d22aff859e2e872763b1d970ab..319ec2e4058f98e3d3e8b078b3cd362f37532658 100644 (file)
--- a/gcc/ada/ada-tree.h
+++ b/gcc/ada/ada-tree.h
@@ -34,7 +34,11 @@ enum gnat_tree_code {
 #undef DEFTREECODE
 
 /* Ada uses the lang_decl and lang_type fields to hold a tree.  */
-union lang_tree_node GTY((desc ("0"))) {union tree_node GTY((tag ("0"))) t; };
+union lang_tree_node GTY((desc ("0"),
+                          chain_next ("(union lang_tree_node *)TREE_CHAIN (&%h.t)")))
+{
+  union tree_node GTY((tag ("0"))) t;
+};
 struct lang_decl GTY(()) {tree t; };
 struct lang_type GTY(()) {tree t; };