procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Return error when trying to seek a non-seekable buffered file

Browse source 
From-SVN: r174947
This commit is contained in:
Janne Blomqvist 2011-06-11 13:52:18 +03:00
parent 5ea0705af7
commit 09ad57ec8f
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
libgfortran/ChangeLog
View file

@ -1,3 +1,8 @@
2011-06-11 Janne Blomqvist <jb@gcc.gnu.org>
* io/unix.c (buf_seek): Return error if file is not seekable.
(buf_tell): Call buf_seek.
2011-06-11 Janne Blomqvist <jb@gcc.gnu.org>
* io/unix.c (fd_to_stream): Figure out if a fd is seekable by

7
libgfortran/io/unix.c
View file

@ -560,6 +560,11 @@ buf_write (unix_stream * s, const void * buf, ssize_t nbyte)
static gfc_offset
buf_seek (unix_stream * s, gfc_offset offset, int whence)
{
if (s->file_length == -1)
{
errno = ESPIPE;
return -1;
}
switch (whence)
{
case SEEK_SET:
@ -585,7 +590,7 @@ buf_seek (unix_stream * s, gfc_offset offset, int whence)
static gfc_offset
buf_tell (unix_stream * s)
{
return s->logical_offset;
return buf_seek (s, 0, SEEK_CUR);
}
static int