diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-10-07 17:01:48 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-10-07 17:01:48 +0000 |
| commit | aed6ee2453b75a196293df1493cf25e8a2fd8e30 (patch) | |
| tree | 681e44e7391bef780270f10d0a2b52d25cf777ff /libgfortran/io/unix.c | |
| parent | 3e352c00e15e9742aa076287839f40813957ce21 (diff) | |
| download | gcc-aed6ee2453b75a196293df1493cf25e8a2fd8e30.zip gcc-aed6ee2453b75a196293df1493cf25e8a2fd8e30.tar.gz gcc-aed6ee2453b75a196293df1493cf25e8a2fd8e30.tar.bz2 | |
transfer.c (write_block): Add test for end-of-file condition, removed from mem_alloc_w_at.
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.
From-SVN: r105092
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 4966726..28ac6ca 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; |