mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-30 18:39:54 +08:00
Code Issues Packages Projects Releases Wiki Activity

transfer.c (finalize_transfer): Free internal streams.

Browse Source 
* io/transfer.c (finalize_transfer): Free internal streams.
	* io/unix.c (mem_close): Free stream object.

From-SVN: r88709
This commit is contained in:
Paul Brook 2004-10-07 21:30:50 +00:00 committed by Paul Brook
parent add2402ef0
commit 5615e8cdce
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2004-10-07 Paul Brook <paul@codesourcery.com>
* io/transfer.c (finalize_transfer): Free internal streams.
* io/unix.c (mem_close): Free stream object.
2004-10-07 Paul Brook <paul@codesourcery.com>
* intrinsics/string_intrinsics.c (string_verify): Fix off by one

6
libgfortran/io/transfer.c
View File

@ -1349,7 +1349,8 @@ next_record (int done)
/* Finalize the current data transfer. For a nonadvancing transfer,
this means advancing to the next record. */
this means advancing to the next record. For internal units close the
steam associated with the unit. */
static void
finalize_transfer (void)
@ -1392,6 +1393,9 @@ finalize_transfer (void)
}
sfree (current_unit->s);
if (is_internal_unit ())
sclose (current_unit->s);
}

1
libgfortran/io/unix.c
View File

@ -811,6 +811,7 @@ mem_truncate (unix_stream * s)
static try
mem_close (unix_stream * s)
{
free_mem (s);
return SUCCESS;
}