As promised in http://gcc.gnu.org/ml/gcc-patches/2011-05/msg00211.html .
Tested by building f951. Committed as r173386. -Nathan gcc/fortran/ * trans.h (gfc_chainon_list): Delete. * trans.c (gfc_chainon_list): Delete. Index: gcc/fortran/ChangeLog =================================================================== Index: gcc/fortran/trans.c =================================================================== --- gcc/fortran/trans.c (revision 173382) +++ gcc/fortran/trans.c (working copy) @@ -63,19 +63,6 @@ gfc_advance_chain (tree t, int n) } -/* Wrap a node in a TREE_LIST node and add it to the end of a list. */ - -tree -gfc_chainon_list (tree list, tree add) -{ - tree l; - - l = tree_cons (NULL_TREE, add, NULL_TREE); - - return chainon (list, l); -} - - /* Strip off a legitimate source ending from the input string NAME of length LEN. */ Index: gcc/fortran/trans.h =================================================================== --- gcc/fortran/trans.h (revision 173382) +++ gcc/fortran/trans.h (working copy) @@ -319,9 +319,6 @@ void gfc_conv_string_parameter (gfc_se * /* Compare two strings. */ tree gfc_build_compare_string (tree, tree, tree, tree, int, enum tree_code); -/* Add an item to the end of TREE_LIST. */ -tree gfc_chainon_list (tree, tree); - /* When using the gfc_conv_* make sure you understand what they do, i.e. when a POST chain may be created, and what the returned expression may be used for. Note that character strings have special handling. This