Index: ada-tree.h
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/ada-tree.h,v
retrieving revision 1.26
diff -u -p -r1.26 ada-tree.h
--- ada-tree.h	21 Sep 2004 15:31:00 -0000	1.26
+++ ada-tree.h	29 Oct 2004 22:04:43 -0000
@@ -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; };