diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2012-01-29 21:01:09 +0200 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2012-01-29 21:01:09 +0200 |
| commit | 9975a30b5c5cab71620d94ddaec21517da9db12a (patch) | |
| tree | 23b6045fb8229578f5f13d9f3ea7b8ffd9821851 /gcc/fortran/resolve.c | |
| parent | 9e85a9fd0dddf4df2991931cbc3dde1841a1b0fb (diff) | |
| download | gcc-9975a30b5c5cab71620d94ddaec21517da9db12a.zip gcc-9975a30b5c5cab71620d94ddaec21517da9db12a.tar.gz gcc-9975a30b5c5cab71620d94ddaec21517da9db12a.tar.bz2 | |
PR 51808 Constify binding_label.
2012-01-29 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/51808
* decl.c (set_binding_label): Make binding_label argument const.
(curr_binding_label): Constify.
* gfortran.h (gfc_symbol): Constify binding_label.
(gfc_common_head): Likewise.
(get_iso_c_sym): Likewise.
* match.c (gfc_match_name_C): Constify buffer argument.
* match.h (gfc_match_name_C): Likewise.
* resolve.c (set_name_and_label): Constify binding_label argument.
(gfc_iso_c_sub_interface): Constify binding_label variable.
* symbol.c (get_iso_c_sym): Constify binding_label argument.
From-SVN: r183679
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 30980d2..0560261 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -3356,7 +3356,7 @@ generic: static void set_name_and_label (gfc_code *c, gfc_symbol *sym, - char *name, char **binding_label) + char *name, const char **binding_label) { gfc_expr *arg = NULL; char type; @@ -3420,7 +3420,7 @@ gfc_iso_c_sub_interface (gfc_code *c, gfc_symbol *sym) gfc_symbol *new_sym; /* this is fine, since we know the names won't use the max */ char name[GFC_MAX_SYMBOL_LEN + 1]; - char* binding_label; + const char* binding_label; /* default to success; will override if find error */ match m = MATCH_YES; |