diff options
| author | obrien <obrien@FreeBSD.org> | 2002-05-09 22:47:59 +0000 |
|---|---|---|
| committer | obrien <obrien@FreeBSD.org> | 2002-05-09 22:47:59 +0000 |
| commit | c4cd6f62364376317c26d104dbae2a1d7688c6f1 (patch) | |
| tree | 67cbb2dcc743690cb31fd56b75a992ce4a6950d9 /contrib/libf2c/libI77/ftell_.c | |
| parent | c95b4b5523419271f1bfef55bc47dfbcdced47c7 (diff) | |
| parent | eb81e01d5162436a00b210305c91bbba234a0238 (diff) | |
| download | FreeBSD-src-c4cd6f62364376317c26d104dbae2a1d7688c6f1.zip FreeBSD-src-c4cd6f62364376317c26d104dbae2a1d7688c6f1.tar.gz | |
This commit was generated by cvs2svn to compensate for changes in r96295,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'contrib/libf2c/libI77/ftell_.c')
| -rw-r--r-- | contrib/libf2c/libI77/ftell_.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/libf2c/libI77/ftell_.c b/contrib/libf2c/libI77/ftell_.c index 1f6d87f..250a0cc 100644 --- a/contrib/libf2c/libI77/ftell_.c +++ b/contrib/libf2c/libI77/ftell_.c @@ -22,7 +22,7 @@ G77_ftell_0 (integer *Unit) #endif { FILE *f; - return (f = unit_chk(*Unit, "ftell")) ? ftell(f) : -1L; + return (f = unit_chk(*Unit, "ftell")) ? (integer) FTELL(f) : -1L; } integer @@ -43,5 +43,5 @@ G77_fseek_0 (integer *Unit, integer *offset, integer *xwhence) w = wohin[w]; #endif return !(f = unit_chk(*Unit, "fseek")) - || fseek(f, *offset, w) ? 1 : 0; + || FSEEK(f, (off_t) *offset, w) ? 1 : 0; } |
