diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-11-21 02:17:11 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-11-21 02:17:11 +0000 |
| commit | 8c098567886e155a07aabfeea764d5c67eadbdaf (patch) | |
| tree | 0079454f1190fece42b63c7212011aa660f64fa4 /libgfortran/io/io.h | |
| parent | 34b81eb96cd1df28d7f878bc1f3df607746507da (diff) | |
| download | gcc-8c098567886e155a07aabfeea764d5c67eadbdaf.zip gcc-8c098567886e155a07aabfeea764d5c67eadbdaf.tar.gz gcc-8c098567886e155a07aabfeea764d5c67eadbdaf.tar.bz2 | |
re PR libfortran/78549 (Very slow formatted internal file output)
2017-11-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/78549
* io/io.h (newunit_free): Add declaration. Clean some whitespace.
* io/transfer.c (st_read_done, st_write_done): Call newunit_free.
* io/unit.c (newunit_free): Change type from static void to void.
From-SVN: r254982
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index d29b112..50db35e 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -760,18 +760,21 @@ internal_proto(find_or_create_unit); extern gfc_unit *get_unit (st_parameter_dt *, int); internal_proto(get_unit); -extern void unlock_unit (gfc_unit *); +extern void unlock_unit(gfc_unit *); internal_proto(unlock_unit); extern void finish_last_advance_record (gfc_unit *u); -internal_proto (finish_last_advance_record); +internal_proto(finish_last_advance_record); -extern int unit_truncate (gfc_unit *, gfc_offset, st_parameter_common *); -internal_proto (unit_truncate); +extern int unit_truncate(gfc_unit *, gfc_offset, st_parameter_common *); +internal_proto(unit_truncate); extern int newunit_alloc (void); internal_proto(newunit_alloc); +extern void newunit_free (int); +internal_proto(newunit_free); + /* open.c */ |