------- Additional Comments From pinskia at gcc dot gnu dot org 2004-10-29 20:34
-------
Ok, this patch to the Ada front-end should help:
Index: ada/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/ada-tree.h 21 Sep 2004 15:31:00 -0000 1.26
+++ ada/ada-tree.h 29 Oct 2004 20:31:01 -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 (&%t.t)")))
+{
+ union tree_node GTY((tag ("0"))) t;
+};
struct lang_decl GTY(()) {tree t; };
struct lang_type GTY(()) {tree t; };
It should help.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17986
