From: Nathan Froyd <froydnj@codesourcery.com>
Date: Wed, 4 May 2011 17:21:22 +0000 (+0000)
Subject: remove gfc_chainon_list
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=42375e2ea3a9043cd0e397b380b35bebf1315202;p=gcc.git

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 5ab6e334cc1..382f1aae156 100644
--- 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 1b3a6b0ba72..1d25cb011c4 100644
--- 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 6a2e4f57e6e..7bf58e493d6 100644
--- 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