diff options
| author | Steve Kargl <kargl@gcc.gnu.org> | 2021-03-27 15:02:16 -0700 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2021-03-27 15:02:16 -0700 |
| commit | 01685676a9309bc0b8b2f4697c23bd6aa0e00d5d (patch) | |
| tree | e6bc4bdd618950cbb82f9053d5a690272cc118d1 /gcc/fortran/misc.c | |
| parent | 651684b462f979a4e70a668c4c9767a5fd7d223a (diff) | |
| download | gcc-01685676a9309bc0b8b2f4697c23bd6aa0e00d5d.zip gcc-01685676a9309bc0b8b2f4697c23bd6aa0e00d5d.tar.gz gcc-01685676a9309bc0b8b2f4697c23bd6aa0e00d5d.tar.bz2 | |
fortran: Fix off-by-one in buffer sizes.
gcc/fortran/ChangeLog:
* misc.c (gfc_typename): Fix off-by-one in buffer sizes.
Diffstat (limited to 'gcc/fortran/misc.c')
| -rw-r--r-- | gcc/fortran/misc.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c index 8a96243..3d449ae1 100644 --- a/gcc/fortran/misc.c +++ b/gcc/fortran/misc.c @@ -124,8 +124,10 @@ gfc_basic_typename (bt type) const char * gfc_typename (gfc_typespec *ts, bool for_hash) { - static char buffer1[GFC_MAX_SYMBOL_LEN + 7]; /* 7 for "TYPE()" + '\0'. */ - static char buffer2[GFC_MAX_SYMBOL_LEN + 7]; + /* Need to add sufficient padding for "TYPE()" + '\0', "UNION()" + '\0', + or "CLASS()" + '\0'. */ + static char buffer1[GFC_MAX_SYMBOL_LEN + 8]; + static char buffer2[GFC_MAX_SYMBOL_LEN + 8]; static int flag = 0; char *buffer; gfc_typespec *ts1; |