diff options
author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-01 15:21:13 +0000 |
---|---|---|
committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-01 15:21:13 +0000 |
commit | 1520d45c655436480cec49df3cff0d0a89c2511e (patch) | |
tree | 8e2f0537dc31941a9c470fc0ebe0c06a0fc1f4fb /gcc/fortran | |
parent | 9298e319617cea417a6cdbe8d1563484af70f369 (diff) | |
download | ppe42-gcc-1520d45c655436480cec49df3cff0d0a89c2511e.tar.gz ppe42-gcc-1520d45c655436480cec49df3cff0d0a89c2511e.zip |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181881 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/fortran/module.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9c62697d29e..3fee56d891f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 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 * module.c (parse_string): Read string into resizable array instead of parsing twice and seeking. diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index f9774d491b8..1ab08ae2cdf 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])) |