===================================================================
===================================================================
@@ -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. */
===================================================================
@@ -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