From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Thu, 1 Dec 2011 15:21:13 +0000 (+0200)
Subject: Make a few helper functions static.
X-Git-Tag: releases/gcc-4.7.0~1845
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=8627f5f5debe85ab4470519f68a4a790f33012fc;p=thirdparty%2Fgcc.git

Make a few helper functions static.

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

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

From-SVN: r181881
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9c62697d29eb..3fee56d891f6 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-01  Janne Blomqvist  <jb@gcc.gnu.org>
+
+	* module.c (dt_lower_string): Make static.
+	(dt_upper_string): Likewise.
+
 2011-12-01  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	PR fortran/25708
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index f9774d491b86..1ab08ae2cdf5 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -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]))