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/due.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/due.c')
-rw-r--r-- | contrib/libf2c/libI77/due.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/libf2c/libI77/due.c b/contrib/libf2c/libI77/due.c index df34133..f7d6941 100644 --- a/contrib/libf2c/libI77/due.c +++ b/contrib/libf2c/libI77/due.c @@ -25,7 +25,7 @@ c_due(cilist *a) if(f__curunit->ufd==NULL) err(a->cierr,114,"cdue"); if(a->cirec <= 0) err(a->cierr,130,"due"); - fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET); + FSEEK(f__cf,(off_t)(a->cirec-1)*f__curunit->url,SEEK_SET); f__curunit->uend = 0; return(0); } @@ -60,8 +60,8 @@ integer e_rdue(Void) f__init = 1; if(f__curunit->url==1 || f__recpos==f__curunit->url) return(0); - fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR); - if(ftell(f__cf)%f__curunit->url) + FSEEK(f__cf,(off_t)(f__curunit->url-f__recpos),SEEK_CUR); + if(FTELL(f__cf)%f__curunit->url) err(f__elist->cierr,200,"syserr"); return(0); } |