diff options
author | cvs2svn <cvs2svn@FreeBSD.org> | 2001-03-19 20:56:12 +0000 |
---|---|---|
committer | cvs2svn <cvs2svn@FreeBSD.org> | 2001-03-19 20:56:12 +0000 |
commit | dc54a98d057114b4701ceeceeeb16f446ade4cf4 (patch) | |
tree | 797d608e70dda10b0da9a4097457ac5fd8f1bc60 /contrib/libf2c/libI77/ftell_.c | |
parent | 06b8915d1faf919850dd08fb24caab3f447e37b6 (diff) | |
download | src-vendor/gcc/2.95.3.tar.gz src-vendor/gcc/2.95.3.zip |
This commit was manufactured by cvs2svn to create tagvendor/gcc/2.95.3
'gcc-vendor-gcc_2_95_3'.
Diffstat (limited to 'contrib/libf2c/libI77/ftell_.c')
-rw-r--r-- | contrib/libf2c/libI77/ftell_.c | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/contrib/libf2c/libI77/ftell_.c b/contrib/libf2c/libI77/ftell_.c deleted file mode 100644 index 1bd03be325a9..000000000000 --- a/contrib/libf2c/libI77/ftell_.c +++ /dev/null @@ -1,46 +0,0 @@ -#include "f2c.h" -#include "fio.h" - - static FILE * -#ifdef KR_headers -unit_chk(Unit, who) integer Unit; char *who; -#else -unit_chk(integer Unit, char *who) -#endif -{ - if (Unit >= MXUNIT || Unit < 0) - f__fatal(101, who); - return f__units[Unit].ufd; - } - - integer -#ifdef KR_headers -G77_ftell_0 (Unit) integer *Unit; -#else -G77_ftell_0 (integer *Unit) -#endif -{ - FILE *f; - return (f = unit_chk(*Unit, "ftell")) ? ftell(f) : -1L; - } - - integer -#ifdef KR_headers -G77_fseek_0 (Unit, offset, xwhence) integer *Unit, *offset, *xwhence; -#else -G77_fseek_0 (integer *Unit, integer *offset, integer *xwhence) -#endif -{ - FILE *f; - int w = (int)*xwhence; -#ifdef SEEK_SET - static int wohin[3] = { SEEK_SET, SEEK_CUR, SEEK_END }; -#endif - if (w < 0 || w > 2) - w = 0; -#ifdef SEEK_SET - w = wohin[w]; -#endif - return !(f = unit_chk(*Unit, "fseek")) - || fseek(f, *offset, w) ? 1 : 0; - } |