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/unit.c | |
| 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/unit.c')
| -rw-r--r-- | libgfortran/io/unit.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index e06867a..e62f9b8 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -89,7 +89,6 @@ static int newunit_size; /* Total number of elements in the newunits array. */ units are allocated, above and equal to the LWI there may be both allocated and free units. */ static int newunit_lwi; -static void newunit_free (int); /* Unit numbers assigned with NEWUNIT start from here. */ #define NEWUNIT_START -10 @@ -911,7 +910,7 @@ newunit_alloc (void) /* Free a previously allocated newunit= unit number. unit_lock must be held when calling. */ -static void +void newunit_free (int unit) { int ind = -unit + NEWUNIT_START; |