diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2011-12-01 17:21:13 +0200 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2011-12-01 17:21:13 +0200 |
| commit | 8627f5f5debe85ab4470519f68a4a790f33012fc (patch) | |
| tree | 8e2f0537dc31941a9c470fc0ebe0c06a0fc1f4fb /gcc/fortran/module.c | |
| parent | 6ebbd277eb93778fbb0a7750216ef3d22c27c71c (diff) | |
| download | gcc-8627f5f5debe85ab4470519f68a4a790f33012fc.zip gcc-8627f5f5debe85ab4470519f68a4a790f33012fc.tar.gz gcc-8627f5f5debe85ab4470519f68a4a790f33012fc.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index f9774d4..1ab08ae 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])) |