From 8627f5f5debe85ab4470519f68a4a790f33012fc Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Thu, 1 Dec 2011 17:21:13 +0200 Subject: [PATCH] Make a few helper functions static. 2011-12-01 Janne Blomqvist * module.c (dt_lower_string): Make static. (dt_upper_string): Likewise. From-SVN: r181881 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/module.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * module.c (dt_lower_string): Make static. + (dt_upper_string): Likewise. + 2011-12-01 Janne Blomqvist 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])) -- 2.47.2