f95-lang.c (lang_tree_node): Add chain_next to be the TREE_CHAIN.

2004-10-30  Andrew Pinski  <pinskia@physics.uc.edu>

        * f95-lang.c (lang_tree_node): Add chain_next to be the TREE_CHAIN.

From-SVN: r89889

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8c81b0bbe14657eace14a08e29837819bce56db1..2854d744485a2c6805824f37aa6c002ccd6e5d79 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-30  Andrew Pinski  <pinskia@physics.uc.edu>
+
+       * f95-lang.c (lang_tree_node): Add chain_next to be the TREE_CHAIN.
+
 2004-10-30  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
        * simplify.c (twos_complement): Calculate mask in GMP arithmetic.

diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index dec03e8256d90a23cad741ae06ecbd3029b471a7..5c556de56192e5a800b2200a9364ab6c7177fcec 100644 (file)
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -62,7 +62,8 @@ GTY(())
 /* The resulting tree type.  */
 
 union lang_tree_node
-GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE")))
+GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE"),
+     chain_next ("(union lang_tree_node *)TREE_CHAIN (&%h.generic)")))
 {
   union tree_node GTY((tag ("0"),
                       desc ("tree_node_structure (&%h)"))) generic;