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/backspace.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/backspace.c')
-rw-r--r-- | contrib/libf2c/libI77/backspace.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/contrib/libf2c/libI77/backspace.c b/contrib/libf2c/libI77/backspace.c index b2bd416..8489239 100644 --- a/contrib/libf2c/libI77/backspace.c +++ b/contrib/libf2c/libI77/backspace.c @@ -8,7 +8,7 @@ integer f_back(a) alist *a; integer f_back(alist *a) #endif { unit *b; - long v, w, x, y, z; + off_t v, w, x, y, z; uiolen n; FILE *f; @@ -34,31 +34,31 @@ integer f_back(alist *a) f = b->ufd; /* may have changed in t_runc() */ if(b->url>0) { - x=ftell(f); + x=FTELL(f); y = x % b->url; if(y == 0) x--; x /= b->url; x *= b->url; - (void) fseek(f,x,SEEK_SET); + FSEEK(f,x,SEEK_SET); return(0); } if(b->ufmt==0) - { fseek(f,-(long)sizeof(uiolen),SEEK_CUR); + { FSEEK(f,-(off_t)sizeof(uiolen),SEEK_CUR); fread((char *)&n,sizeof(uiolen),1,f); - fseek(f,-(long)n-2*sizeof(uiolen),SEEK_CUR); + FSEEK(f,-(off_t)n-2*sizeof(uiolen),SEEK_CUR); return(0); } - w = x = ftell(f); + w = x = FTELL(f); z = 0; loop: while(x) { x -= x < 64 ? x : 64; - fseek(f,x,SEEK_SET); + FSEEK(f,x,SEEK_SET); for(y = x; y < w; y++) { if (getc(f) != '\n') continue; - v = ftell(f); + v = FTELL(f); if (v == w) { if (z) goto break2; @@ -69,6 +69,6 @@ integer f_back(alist *a) err(a->aerr,(EOF),"backspace"); } break2: - fseek(f, z, SEEK_SET); + FSEEK(f, z, SEEK_SET); return 0; } |