From patchwork Wed May 4 17:22:06 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Nathan Froyd X-Patchwork-Id: 94100 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id 0137D1007FE for ; Thu, 5 May 2011 03:22:27 +1000 (EST) Received: (qmail 19763 invoked by alias); 4 May 2011 17:22:23 -0000 Received: (qmail 19755 invoked by uid 22791); 4 May 2011 17:22:21 -0000 X-SWARE-Spam-Status: No, hits=-1.7 required=5.0 tests=AWL, BAYES_00, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mail.codesourcery.com (HELO mail.codesourcery.com) (38.113.113.100) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Wed, 04 May 2011 17:22:07 +0000 Received: (qmail 14269 invoked from network); 4 May 2011 17:22:07 -0000 Received: from unknown (HELO localhost) (froydnj@127.0.0.2) by mail.codesourcery.com with ESMTPA; 4 May 2011 17:22:07 -0000 Date: Wed, 4 May 2011 10:22:06 -0700 From: Nathan Froyd To: gcc-patches@gcc.gnu.org, fortran@gcc.gnu.org Subject: [obv] remove gfc_chainon_list Message-ID: <20110504172204.GK23480@codesourcery.com> MIME-Version: 1.0 Content-Disposition: inline User-Agent: Mutt/1.5.17+20080114 (2008-01-14) X-IsSubscribed: yes Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org As promised in http://gcc.gnu.org/ml/gcc-patches/2011-05/msg00211.html . Tested by building f951. Committed as r173386. -Nathan gcc/fortran/ * trans.h (gfc_chainon_list): Delete. * trans.c (gfc_chainon_list): Delete. Index: gcc/fortran/ChangeLog =================================================================== Index: gcc/fortran/trans.c =================================================================== --- gcc/fortran/trans.c (revision 173382) +++ gcc/fortran/trans.c (working copy) @@ -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. */ Index: gcc/fortran/trans.h =================================================================== --- gcc/fortran/trans.h (revision 173382) +++ gcc/fortran/trans.h (working copy) @@ -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