git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/68987 (double free or corruption in _gfortran_st_write_done when a write statement to an internal file uses an invalid format and the ERR= specifier appears.) 

2015-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/68987
	io/format.c (format_error): Remove unneeded memory cleanup.

From-SVN: r231989
This commit is contained in:
Jerry DeLisle 2015-12-29 05:17:42 +00:00
parent fcc75e0b14
commit 820d395cc8
2 changed files with 6 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,6 +1,11 @@
2015-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/68987
io/format.c (format_error): Remove unneeded memory cleanup.
2015-12-14 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2015-12-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/pr68867 PR libfortran/68867
* io/write.c (set_fnode_default): For kind=16, set the decimal precision * io/write.c (set_fnode_default): For kind=16, set the decimal precision
depending on the platform binary precision, 106 or 113. depending on the platform binary precision, 106 or 113.

20
libgfortran/io/format.c
View File

@ -1180,26 +1180,6 @@ format_error (st_parameter_dt *dtp, const fnode *f, const char *message)
*p++ = '^'; *p++ = '^';
*p = '\0'; *p = '\0';
/* Cleanup any left over memory allocations before calling generate
error. */
if (is_internal_unit (dtp))
{
if (dtp->format != NULL)
{
free (dtp->format);
dtp->format = NULL;
}
/* Leave these alone if IOSTAT was given because execution will
return from generate error in those cases. */
if (!(dtp->common.flags & IOPARM_HAS_IOSTAT))
{
free (dtp->u.p.fmt);
free_format_hash_table (dtp->u.p.current_unit);
free_internal_unit (dtp);
}
}
generate_error (&dtp->common, LIBERROR_FORMAT, buffer); generate_error (&dtp->common, LIBERROR_FORMAT, buffer);
} }