diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-07-24 10:42:23 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-07-24 10:42:23 +0000 |
| commit | ff9a87509d68a92b8ec062c9eb5d80977de2196f (patch) | |
| tree | 560cee2cae013106b7f130a833abd9f2bee42127 /libgfortran | |
| parent | cedc228d1c0feef83c36ccbeb7faa26c53af1b18 (diff) | |
| download | gcc-ff9a87509d68a92b8ec062c9eb5d80977de2196f.zip gcc-ff9a87509d68a92b8ec062c9eb5d80977de2196f.tar.gz gcc-ff9a87509d68a92b8ec062c9eb5d80977de2196f.tar.bz2 | |
unix.c (buf_write): Return early if there is nothing to write.
2017-07-24 Thomas Koenig <tkoenig@gcc.gnu.org>
* io/unix.c (buf_write): Return early if there is
nothing to write.
From-SVN: r250473
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/unix.c | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index f34b4df..d29f4f4 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2017-07-24 Thomas Koenig <tkoenig@gcc.gnu.org> + + * io/unix.c (buf_write): Return early if there is + nothing to write. + 2017-06-09 Thomas Koenig <tkoenig@gcc.gnu.org> * intrinsics/eoshift2.c (eoshift2): Use memcpy diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index c76b427..61e9f79 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -582,6 +582,9 @@ buf_read (unix_stream *s, void *buf, ssize_t nbyte) static ssize_t buf_write (unix_stream *s, const void *buf, ssize_t nbyte) { + if (nbyte == 0) + return 0; + if (s->ndirty == 0) s->buffer_offset = s->logical_offset; |