remove gfc_chainon_list

remove gfc_chainon_list
	* trans.h (gfc_chainon_list): Delete.
	* trans.c (gfc_chainon_list): Delete.

From-SVN: r173386

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5ab6e334cc10db69aee93a2c1cd547a33b045762..382f1aae1565b73a8a6f6ed238922bd340327fdd 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-04  Nathan Froyd  <froydnj@codesourcery.com>
+
+       * trans.h (gfc_chainon_list): Delete.
+       * trans.c (gfc_chainon_list): Delete.
+
 2011-05-04  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/48864

diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c
index 1b3a6b0ba720e34009b90ff305a8a991a5410b93..1d25cb011c4001fd6b2c6b1eac8c337042b6b9f2 100644 (file)
--- a/gcc/fortran/trans.c
+++ b/gcc/fortran/trans.c
@@ -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.  */
 

diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h
index 6a2e4f57e6e4c174485a270537ae41ac393094c4..7bf58e493d65576be58be216d09ff31ba290dd00 100644 (file)
--- a/gcc/fortran/trans.h
+++ b/gcc/fortran/trans.h
@@ -319,9 +319,6 @@ void gfc_conv_string_parameter (gfc_se * 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