diff mbox

[fortran] Make a few helper functions static

Message ID CAO9iq9GSo6qy6HFyr+aL1Sv-gDm-XMywLUz0_o65-3oBz9UMog@mail.gmail.com
State New
Headers show

Commit Message

Janne Blomqvist Dec. 1, 2011, 3:22 p.m. UTC 
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.
diff mbox

Patch

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