diff options
| author | Andrew Pinski <pinskia@physics.uc.edu> | 2005-12-28 19:21:55 +0000 |
|---|---|---|
| committer | Andrew Pinski <pinskia@gcc.gnu.org> | 2005-12-28 11:21:55 -0800 |
| commit | ff7417d4c9b74b85cfb17000718b245b2aa96cb5 (patch) | |
| tree | d96d6f557554c149a542d9fc37e49a9a8e327306 /gcc | |
| parent | b21606a6c08054686b55066da4c49d12febfb60f (diff) | |
| download | gcc-ff7417d4c9b74b85cfb17000718b245b2aa96cb5.zip gcc-ff7417d4c9b74b85cfb17000718b245b2aa96cb5.tar.gz gcc-ff7417d4c9b74b85cfb17000718b245b2aa96cb5.tar.bz2 | |
re PR fortran/25587 (Garbage in output of -fdump-tree-original)
2005-12-28 Andrew Pinski <pinskia@physics.uc.edu>
PR fortran/25587
* trans-io.c (gfc_build_st_parameter): Correct off by one error.
From-SVN: r109120
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-io.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d621950..ae69322 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-12-28 Andrew Pinski <pinskia@physics.uc.edu> + + PR fortran/25587 + * trans-io.c (gfc_build_st_parameter): Correct off by one error. + 2005-12-28 Rafael Ávila de Espíndola <rafael.espindola@gmail.com> * Make-lang.in: Remove distdir from comment. diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index ed6cf9a..24b7bc9 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -160,7 +160,7 @@ gfc_build_st_parameter (enum ioparam_type ptype, tree *types) gcc_assert (len <= sizeof (name) - sizeof ("__st_parameter_")); memcpy (name, "__st_parameter_", sizeof ("__st_parameter_")); memcpy (name + sizeof ("__st_parameter_") - 1, st_parameter[ptype].name, - len); + len + 1); TYPE_NAME (t) = get_identifier (name); for (type = 0, p = st_parameter_field; type < IOPARM_field_num; type++, p++) |