re PR ada/31660 ('union lang_tree_node' has no member named 'generic')

2007-04-22  Andrew Pinski  <andrew_pinski@playstation.sony.com>

        PR ada/31660
        * ada-tree.h (lang_tree_node): Fix typo in chain_next.

From-SVN: r124052

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2ba34f3c74c2e43cb095fcc9114fa2af3bee50b6..ef55b792f87127e317f8bb443cc4ee6b6c50a268 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-22  Andrew Pinski  <andrew_pinski@playstation.sony.com>
+
+       PR ada/31660
+       * ada-tree.h (lang_tree_node): Fix typo in chain_next.
+
 2007-04-21  Jan Hubicka  <jh@suse.cz>
 
        * misc.c (gnat_expand_body): Don't call target for destructors,

diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h
index 358cecafac85e62d32cd3d793d765e9434cd7543..e333d0f032565c845b3ed40af6ef2cbe279320fa 100644 (file)
--- a/gcc/ada/ada-tree.h
+++ b/gcc/ada/ada-tree.h
@@ -36,7 +36,7 @@ enum gnat_tree_code {
 /* Ada uses the lang_decl and lang_type fields to hold a tree.  */
 union lang_tree_node
   GTY((desc ("0"),
-       chain_next ("(union lang_tree_node *)GENERIC_NEXT (&%h.generic)")))
+       chain_next ("(union lang_tree_node *)GENERIC_NEXT (&%h.t)")))
 
 {
   union tree_node GTY((tag ("0"))) t;