From 283427371858add907e524c5da99846050f98a2e Mon Sep 17 00:00:00 2001 From: pinskia Date: Mon, 22 Nov 2004 13:50:41 +0000 Subject: [PATCH] 2004-11-22 Andrew Pinski PR ada/17986 * ada-tree.h (lang_tree_node): Set chain_next to be the chain of the tree. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@91013 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/ada-tree.h | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ac42b983379..55eae1a80e2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2004-11-22 Andrew Pinski + + PR ada/17986 + * ada-tree.h (lang_tree_node): Set chain_next to be the chain of the + tree. + 2004-11-21 Andreas Jaeger * stylesw.adb: Change Style_Check_Subprogram_Order to diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index c087f7851ef..319ec2e4058 100644 --- 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; }; -- 2.11.0