OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

unix.c (stream_at_bof): Don't assume that all non-mmapped files are non-seekable.

Browse Source 
* unix.c (stream_at_bof): Don't assume that all non-mmapped files
	are non-seekable.
	(stream_at_eof): Likewise.

From-SVN: r101164
This commit is contained in:
Janne Blomqvist 2005-06-18 23:09:28 +03:00 committed by François-Xavier Coudert
parent 2d9474dfd2
commit b68d2bed0d
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2005-06-18 Janne Blomqvist <jblomqvi@cc.hut.fi>
* unix.c (stream_at_bof): Don't assume that all non-mmapped files
are non-seekable.
(stream_at_eof): Likewise.
2005-06-18 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/19155

12
libgfortran/io/unix.c
View File

@ -1298,10 +1298,10 @@ stream_at_bof (stream * s)
{
unix_stream *us;
us = (unix_stream *) s;
if (!is_seekable (s))
return 0;
if (!us->mmaped)
return 0; /* File is not seekable */
us = (unix_stream *) s;
return us->logical_offset == 0;
}
@ -1315,10 +1315,10 @@ stream_at_eof (stream * s)
{
unix_stream *us;
us = (unix_stream *) s;
if (!is_seekable (s))
return 0;
if (!us->mmaped)
return 0; /* File is not seekable */
us = (unix_stream *) s;
return us->logical_offset == us->dirty_offset;
}