diff options
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index adbccc11486..eb24cba4a8b 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -540,7 +540,7 @@ gfc_array_spec; /* Components of derived types. */ typedef struct gfc_component { - const char *name; + char name[GFC_MAX_SYMBOL_LEN + 1]; gfc_typespec ts; int pointer, dimension; @@ -571,7 +571,7 @@ gfc_formal_arglist; /* The gfc_actual_arglist structure is for actual arguments. */ typedef struct gfc_actual_arglist { - const char *name; + char name[GFC_MAX_SYMBOL_LEN + 1]; /* Alternate return label when the expr member is null. */ struct gfc_st_label *label; @@ -636,7 +636,7 @@ gfc_interface; /* User operator nodes. These are like stripped down symbols. */ typedef struct { - const char *name; + char name[GFC_MAX_SYMBOL_LEN + 1]; gfc_interface *operator; struct gfc_namespace *ns; @@ -652,8 +652,8 @@ gfc_user_op; typedef struct gfc_symbol { - const char *name; /* Primary name, before renaming */ - const char *module; /* Module this symbol came from */ + char name[GFC_MAX_SYMBOL_LEN + 1]; /* Primary name, before renaming */ + char module[GFC_MAX_SYMBOL_LEN + 1]; /* Module this symbol came from */ locus declared_at; gfc_typespec ts; @@ -744,7 +744,7 @@ gfc_entry_list; typedef struct gfc_symtree { BBT_HEADER (gfc_symtree); - const char *name; + char name[GFC_MAX_SYMBOL_LEN + 1]; int ambiguous; union { @@ -1003,7 +1003,7 @@ gfc_resolve_f; typedef struct gfc_intrinsic_sym { - const char *name, *lib_name; + char name[GFC_MAX_SYMBOL_LEN + 1], lib_name[GFC_MAX_SYMBOL_LEN + 1]; gfc_intrinsic_arg *formal; gfc_typespec ts; int elemental, pure, generic, specific, actual_ok, standard; @@ -1654,8 +1654,8 @@ void gfc_save_all (gfc_namespace *); void gfc_symbol_state (void); -gfc_gsymbol *gfc_get_gsymbol (const char *); -gfc_gsymbol *gfc_find_gsymbol (gfc_gsymbol *, const char *); +gfc_gsymbol *gfc_get_gsymbol (char *); +gfc_gsymbol *gfc_find_gsymbol (gfc_gsymbol *, char *); /* intrinsic.c */ extern int gfc_init_expr; @@ -1664,7 +1664,7 @@ extern int gfc_init_expr; by placing it into a special module that is otherwise impossible to read or write. */ -#define gfc_intrinsic_symbol(SYM) SYM->module = gfc_get_string ("(intrinsic)") +#define gfc_intrinsic_symbol(SYM) strcpy (SYM->module, "(intrinsic)") void gfc_intrinsic_init_1 (void); void gfc_intrinsic_done_1 (void); |
