From: froydnj <froydnj@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 4 May 2011 17:21:22 +0000 (+0000)
Subject: remove gfc_chainon_list
X-Git-Tag: upstream/4.9.2~20947
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0611fe7513cbf359835048fb5afdacba5cc429da;p=platform%2Fupstream%2Flinaro-gcc.git

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
--- 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
--- 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
--- 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