* symbol.c (gfc_get_gsymbol): Allocate gsymbol name via
gfc_get_string.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98942
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-04-28 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
+
+ * gfortran.h (gfc_gsymbol): Make name a const char *.
+ * symbol.c (gfc_get_gsymbol): Allocate gsymbol name via
+ gfc_get_string.
+
2005-04-28 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR fortran/20865
{
BBT_HEADER(gfc_gsymbol);
- char name[GFC_MAX_SYMBOL_LEN+1];
+ const char *name;
enum { GSYM_UNKNOWN=1, GSYM_PROGRAM, GSYM_FUNCTION, GSYM_SUBROUTINE,
GSYM_MODULE, GSYM_COMMON, GSYM_BLOCK_DATA } type;
s = gfc_getmem (sizeof (gfc_gsymbol));
s->type = GSYM_UNKNOWN;
- strcpy (s->name, name);
+ s->name = gfc_get_string (name);
gfc_insert_bbt (&gfc_gsym_root, s, gsym_compare);