diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8c81b0b..2854d74 100644 --- 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 dec03e8..5c556de 100644 --- 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; |