diff options
author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-12-29 05:17:42 +0000 |
---|---|---|
committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-12-29 05:17:42 +0000 |
commit | f320bf879734807e239e5c0b1990ddb8454f5442 (patch) | |
tree | 5af7a40bedc6614a5a825068a35da28f4b5c76d8 /libgfortran | |
parent | 33f6238a190bd5d3af991487358f17fda70b52b1 (diff) |
2015-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/68987
io/format.c (format_error): Remove unneeded memory cleanup.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@231989 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
-rw-r--r-- | libgfortran/io/format.c | 20 |
2 files changed, 6 insertions, 21 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 2aca878cd77..438537c998e 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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> - PR libfortran/pr68867 + PR libfortran/68867 * io/write.c (set_fnode_default): For kind=16, set the decimal precision depending on the platform binary precision, 106 or 113. diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 2068af7eb84..fc7785e1eb8 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -1180,26 +1180,6 @@ format_error (st_parameter_dt *dtp, const fnode *f, const char *message) *p++ = '^'; *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); } |