diff options
author | Janne Blomqvist <jb@gcc.gnu.org> | 2011-02-23 08:59:51 +0200 |
---|---|---|
committer | Janne Blomqvist <jb@gcc.gnu.org> | 2011-02-23 08:59:51 +0200 |
commit | a2c037bdec3daaa6be724b9e93a9087ddfad4f81 (patch) | |
tree | abae9394bf2e2aeea9c461c5aa49689d59efe2d7 /libgfortran/io/fbuf.h | |
parent | ff72e86dfda00631473eca57b8d2af3ef7475c73 (diff) | |
download | gcc-a2c037bdec3daaa6be724b9e93a9087ddfad4f81.zip gcc-a2c037bdec3daaa6be724b9e93a9087ddfad4f81.tar.gz gcc-a2c037bdec3daaa6be724b9e93a9087ddfad4f81.tar.bz2 |
PR 47694 Read from named pipe fails
Co-Authored-By: Jerry DeLisle <jvdelisle@gcc.gnu.org>
From-SVN: r170432
Diffstat (limited to 'libgfortran/io/fbuf.h')
-rw-r--r-- | libgfortran/io/fbuf.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/io/fbuf.h b/libgfortran/io/fbuf.h index c82d01b..3a2883b 100644 --- a/libgfortran/io/fbuf.h +++ b/libgfortran/io/fbuf.h @@ -78,4 +78,10 @@ fbuf_getc (gfc_unit * u) return fbuf_getc_refill (u); } +static inline char * +fbuf_getptr (gfc_unit * u) +{ + return (char*) (u->fbuf->buf + u->fbuf->pos); +} + #endif |