diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-04-28 23:09:04 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-04-28 23:09:04 +0200 |
| commit | 973a384d4fb0083ec8a222595f131028f3b68f79 (patch) | |
| tree | f8b074ab03ba5914254ffbfc53f1c55de03d5e71 /gcc/fortran/symbol.c | |
| parent | e5d149869aa8ac4ae107421712685fe06bd0aac1 (diff) | |
| download | gcc-973a384d4fb0083ec8a222595f131028f3b68f79.zip gcc-973a384d4fb0083ec8a222595f131028f3b68f79.tar.gz gcc-973a384d4fb0083ec8a222595f131028f3b68f79.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 26e3f00..6906b81 100644 --- 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); |