diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-10-07 17:01:48 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-10-07 17:01:48 +0000 |
| commit | 72231bd6a4e2e13f0a27696f257d1b5b195301d1 (patch) | |
| tree | 681e44e7391bef780270f10d0a2b52d25cf777ff /libgfortran/io/unix.c | |
| parent | 2080a2d516328429d4ded709132cf1be305751ae (diff) | |
| download | gcc-72231bd6a4e2e13f0a27696f257d1b5b195301d1.tar.gz | |
2005-10-07 Jerry DeLisle <jvdelisle@verizon.net>
* io/transfer.c (write_block): Add test for end-of-file condition,
removed from mem_alloc_w_at. (next_record_w): Clean up checks for
NULL pointer returns from s_alloc_w.
* io/unix.c (mem_alloc_w_at): Remove call to generate_error end-of-file.
* io/write.c (write_float): Add checks for NULL pointer returns from
write_block calls. (write_integer): Same.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@105092 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/unix.c')
| -rw-r--r-- | libgfortran/io/unix.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 4966726f830..28ac6ca66ae 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -630,10 +630,7 @@ mem_alloc_w_at (unix_stream * s, int *len, gfc_offset where) return NULL; if (m > s->file_length) - { - generate_error (ERROR_END, NULL); - return NULL; - } + return NULL; s->logical_offset = m; |