gfortran.h (gfc_gsymbol): Make name a const char *.

	* gfortran.h (gfc_gsymbol): Make name a const char *.
	* symbol.c (gfc_get_gsymbol): Allocate gsymbol name via
	gfc_get_string.

From-SVN: r98942

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d8cd7060e081a085b028db1397a7e7d50a764cce..8d8e000e15a714462d052b3f04741f9a628f195d 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index c266d589c0c2547e0e162267ea423f993c6c44d0..24ffcf372933d9d4050a21056eefb30bdd5a5e8f 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -842,7 +842,7 @@ typedef struct gfc_gsymbol
 {
   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;
 

diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index 26e3f003442b0961d2b877e496fa695d1a9dc82d..6906b81cc23de33dc2a1524a77c7717800b12bc8 100644 (file)
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -2410,7 +2410,7 @@ gfc_get_gsymbol (const char *name)
 
   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);