From patchwork Thu Dec  1 15:22:28 2011
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
X-Patchwork-Submitter: Janne Blomqvist <blomqvist.janne@gmail.com>
X-Patchwork-Id: 128708
Return-Path: 
 <gcc-patches-return-308877-incoming=patchwork.ozlabs.org@gcc.gnu.org>
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 7FD0BB6F76
	for <incoming@patchwork.ozlabs.org>;
	Fri,  2 Dec 2011 02:22:53 +1100 (EST)
Received: (qmail 31467 invoked by alias); 1 Dec 2011 15:22:48 -0000
Received: (qmail 31441 invoked by uid 22791); 1 Dec 2011 15:22:46 -0000
X-SWARE-Spam-Status: No, hits=-2.4 required=5.0	tests=AWL, BAYES_00,
	DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, FREEMAIL_FROM,
	RCVD_IN_DNSWL_LOW
X-Spam-Check-By: sourceware.org
Received: from mail-lpp01m010-f47.google.com (HELO
	mail-lpp01m010-f47.google.com) (209.85.215.47) by
	sourceware.org (qpsmtpd/0.43rc1) with ESMTP;
	Thu, 01 Dec 2011 15:22:30 +0000
Received: by lagj5 with SMTP id j5so830573lag.20 for <multiple recipients>;
	Thu, 01 Dec 2011 07:22:29 -0800 (PST)
MIME-Version: 1.0
Received: by 10.152.102.173 with SMTP id fp13mr4919098lab.24.1322752949168;
	Thu, 01 Dec 2011 07:22:29 -0800 (PST)
Received: by 10.152.6.74 with HTTP; Thu, 1 Dec 2011 07:22:28 -0800 (PST)
Date: Thu, 1 Dec 2011 17:22:28 +0200
Message-ID: 
 <CAO9iq9GSo6qy6HFyr+aL1Sv-gDm-XMywLUz0_o65-3oBz9UMog@mail.gmail.com>
Subject: [Patch, fortran] Make a few helper functions static
From: Janne Blomqvist <blomqvist.janne@gmail.com>
To: Fortran List <fortran@gcc.gnu.org>, GCC Patches <gcc-patches@gcc.gnu.org>
Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-patches.gcc.gnu.org>
List-Unsubscribe: 
 <mailto:gcc-patches-unsubscribe-incoming=patchwork.ozlabs.org@gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-patches/>
List-Post: <mailto:gcc-patches@gcc.gnu.org>
List-Help: <mailto:gcc-patches-help@gcc.gnu.org>
Sender: gcc-patches-owner@gcc.gnu.org
Delivered-To: mailing list gcc-patches@gcc.gnu.org

Hi,

committed the patch below as obvious.

2011-12-01  Janne Blomqvist  <jb@gcc.gnu.org>

	* module.c (dt_lower_string): Make static.
	(dt_upper_string): Likewise.

Index: module.c
===================================================================
--- module.c    (revision 181880)
+++ module.c    (working copy)
@@ -435,7 +435,7 @@ resolve_fixups (fixup_t *f, void *gp)
    to convert the symtree name of a derived-type to the symbol name or to
    the name of the associated generic function.  */

-const char *
+static const char *
 dt_lower_string (const char *name)
 {
   if (name[0] != (char) TOLOWER ((unsigned char) name[0]))
@@ -450,7 +450,7 @@ dt_lower_string (const char *name)
    symtree/symbol name of the associated generic function start with a lower-
    case character.  */

-const char *
+static const char *
 dt_upper_string (const char *name)
 {
   if (name[0] != (char) TOUPPER ((unsigned char) name[0]))