diff options
| author | Richard Henderson <rth@redhat.com> | 2004-12-14 19:56:06 -0800 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2004-12-14 19:56:06 -0800 |
| commit | 6b25a558d71af78b9c2891a761b441c4a4088285 (patch) | |
| tree | 3fa977dffc10679dfaab85801d62c79a49b0338a /gcc/fortran/resolve.c | |
| parent | 6bd26f0bee556c3951a99a7cd2ae76a413d5ce18 (diff) | |
| download | gcc-6b25a558d71af78b9c2891a761b441c4a4088285.zip gcc-6b25a558d71af78b9c2891a761b441c4a4088285.tar.gz gcc-6b25a558d71af78b9c2891a761b441c4a4088285.tar.bz2 | |
gfortran.h (gfc_expr.function.name): Make const.
* gfortran.h (gfc_expr.function.name): Make const.
(gfc_iresolve_init_1, gfc_iresolve_done_1): Remove.
(gfc_get_string): Update prototype.
* iresolve.c: Include tree.h.
(string_node, HASH_SIZE, string_head, hash): Remove.
(gfc_get_string): Use vsnprintf, get_identifier.
(free_strings, gfc_iresolve_init_1, gfc_iresolve_done_1): Remove.
* misc.c (gfc_init_1): Don't call gfc_iresolve_init_1.
(gfc_done_1): Don't call gfc_iresolve_done_1.
* module.c (mio_allocated_string): Take and return const char *,
instead of modifying char**.
(mio_expr): Update to match.
* resolve.c (pure_function): Constify name argument.
(resolve_function): Constify name.
* trans-intrinsic.c (gfc_conv_intrinsic_function): Likewise.
From-SVN: r92176
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index c7d3c61..3d72f7d 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -901,7 +901,7 @@ set_type: function is PURE, zero if not. */ static int -pure_function (gfc_expr * e, char **name) +pure_function (gfc_expr * e, const char **name) { int pure; @@ -936,7 +936,7 @@ static try resolve_function (gfc_expr * expr) { gfc_actual_arglist *arg; - char *name; + const char *name; try t; if (resolve_actual_arglist (expr->value.function.actual) == FAILURE) |