From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 95424 invoked by alias); 10 May 2018 23:08:20 -0000 Mailing-List: contact fortran-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Post: List-Help: , Sender: fortran-owner@gcc.gnu.org Received: (qmail 95401 invoked by uid 89); 10 May 2018 23:08:20 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-9.4 required=5.0 tests=AWL,BAYES_00,GIT_PATCH_2,GIT_PATCH_3,KAM_ASCII_DIVIDERS,KAM_LAZY_DOMAIN_SECURITY autolearn=ham version=3.3.2 spammy=H*MI:edu X-Spam-User: qpsmtpd, 2 recipients X-HELO: troutmask.apl.washington.edu Received: from troutmask.apl.washington.edu (HELO troutmask.apl.washington.edu) (128.95.76.21) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Thu, 10 May 2018 23:08:19 +0000 Received: from troutmask.apl.washington.edu (localhost [127.0.0.1]) by troutmask.apl.washington.edu (8.15.2/8.15.2) with ESMTPS id w4AN8HnQ043494 (version=TLSv1.2 cipher=DHE-RSA-AES256-GCM-SHA384 bits=256 verify=NO); Thu, 10 May 2018 16:08:17 -0700 (PDT) (envelope-from sgk@troutmask.apl.washington.edu) Received: (from sgk@localhost) by troutmask.apl.washington.edu (8.15.2/8.15.2/Submit) id w4AN8Hhx043493; Thu, 10 May 2018 16:08:17 -0700 (PDT) (envelope-from sgk) Date: Thu, 10 May 2018 23:08:00 -0000 From: Steve Kargl To: fortran@gcc.gnu.org, gcc-patches@gcc.gnu.org Subject: [PATCH] Fortran cleanup patch Message-ID: <20180510230817.GA43099@troutmask.apl.washington.edu> Reply-To: sgk@troutmask.apl.washington.edu MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="k1lZvvs/B4yU6o8G" Content-Disposition: inline User-Agent: Mutt/1.9.2 (2017-12-15) X-IsSubscribed: yes X-SW-Source: 2018-05/txt/msg00037.txt.bz2 --k1lZvvs/B4yU6o8G Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-length: 223 The attached patch removed an unused function. OK to commit? 2018-05-10 Steven G. Kargl * gfortran.h: Remove prototype. * symbol.c (gfc_new_undo_checkpoint): Remove unused function. -- Steve --k1lZvvs/B4yU6o8G Content-Type: text/x-diff; charset=us-ascii Content-Disposition: attachment; filename="unused.diff" Content-length: 1449 Index: gcc/fortran/gfortran.h =================================================================== --- gcc/fortran/gfortran.h (revision 260141) +++ gcc/fortran/gfortran.h (working copy) @@ -3033,7 +3033,6 @@ int gfc_get_sym_tree (const char *, gfc_namespace *, g int gfc_get_ha_symbol (const char *, gfc_symbol **); int gfc_get_ha_sym_tree (const char *, gfc_symtree **); -void gfc_new_undo_checkpoint (gfc_undo_change_set &); void gfc_drop_last_undo_checkpoint (void); void gfc_restore_last_undo_checkpoint (void); void gfc_undo_symbols (void); Index: gcc/fortran/symbol.c =================================================================== --- gcc/fortran/symbol.c (revision 260141) +++ gcc/fortran/symbol.c (working copy) @@ -3484,22 +3484,6 @@ find_common_symtree (gfc_symtree *st, gfc_common_head } -/* Clear the given storage, and make it the current change set for registering - changed symbols. Its contents are freed after a call to - gfc_restore_last_undo_checkpoint or gfc_drop_last_undo_checkpoint, but - it is up to the caller to free the storage itself. It is usually a local - variable, so there is nothing to do anyway. */ - -void -gfc_new_undo_checkpoint (gfc_undo_change_set &chg_syms) -{ - chg_syms.syms = vNULL; - chg_syms.tbps = vNULL; - chg_syms.previous = latest_undo_chgset; - latest_undo_chgset = &chg_syms; -} - - /* Restore previous state of symbol. Just copy simple stuff. */ static void --k1lZvvs/B4yU6o8G--