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

Figure out whether a file is seekable with lseek() 

From-SVN: r174946
This commit is contained in:
Janne Blomqvist 2011-06-11 13:19:49 +03:00
parent ba94c7af45
commit 5ea0705af7
2 changed files with 13 additions and 8 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 (fd_to_stream): Figure out if a fd is seekable by
trying lseek().
2011-06-10 Daniel Carrera <dcarrera@gmail.com>
* caf/mpi.c (_gfortran_caf_sync_all,

16
libgfortran/io/unix.c
View File

@ -952,15 +952,15 @@ fd_to_stream (int fd)
if (S_ISREG (statbuf.st_mode))
s->file_length = statbuf.st_size;
else if (S_ISBLK (statbuf.st_mode))
{
/* Hopefully more portable than ioctl(fd, BLKGETSIZE64, &size)? */
gfc_offset cur = lseek (fd, 0, SEEK_CUR);
s->file_length = lseek (fd, 0, SEEK_END);
lseek (fd, cur, SEEK_SET);
}
else
s->file_length = -1;
{
/* Some character special files are seekable but most are not,
so figure it out by trying to seek. On Linux, /dev/null is
an example of such a special file. */
s->file_length = lseek (fd, 0, SEEK_END);
if (s->file_length > 0)
lseek (fd, 0, SEEK_SET);
}
if (!(S_ISREG (statbuf.st_mode) || S_ISBLK (statbuf.st_mode))
|| options.all_unbuffered