remove gfc_chainon_list

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@173386 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5ab6e33..382f1aa 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 1b3a6b0..1d25cb0 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 6a2e4f5..7bf58e4 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