diff options
| author | markm <markm@FreeBSD.org> | 2000-06-25 11:04:01 +0000 |
|---|---|---|
| committer | markm <markm@FreeBSD.org> | 2000-06-25 11:04:01 +0000 |
| commit | 2618fad5bbb2d0182eb31ed805c41b543c513940 (patch) | |
| tree | 52ba93338b13aefd02a0055304a9eccfa0e049f5 /contrib/perl5/perlsdio.h | |
| parent | 77644ee620b6a79cf8c538abaf7cd301a875528d (diff) | |
| download | FreeBSD-src-2618fad5bbb2d0182eb31ed805c41b543c513940.zip FreeBSD-src-2618fad5bbb2d0182eb31ed805c41b543c513940.tar.gz | |
Vendor import of Perl 5.006
Diffstat (limited to 'contrib/perl5/perlsdio.h')
| -rw-r--r-- | contrib/perl5/perlsdio.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/contrib/perl5/perlsdio.h b/contrib/perl5/perlsdio.h index efc52e1..7afda68 100644 --- a/contrib/perl5/perlsdio.h +++ b/contrib/perl5/perlsdio.h @@ -55,12 +55,18 @@ #define PerlIO_clearerr(f) clearerr(f) #define PerlIO_flush(f) Fflush(f) #define PerlIO_tell(f) ftell(f) +#if defined(USE_64_BIT_STDIO) && defined(HAS_FTELLO) && !defined(USE_FTELL64) +#define ftell ftello +#endif #if defined(VMS) && !defined(__DECC) /* Old VAXC RTL doesn't reset EOF on seek; Perl folk seem to expect this */ # define PerlIO_seek(f,o,w) (((f) && (*f) && ((*f)->_flag &= ~_IOEOF)),fseek(f,o,w)) #else # define PerlIO_seek(f,o,w) fseek(f,o,w) #endif +#if defined(USE_64_BIT_STDIO) && defined(HAS_FSEEKO) && !defined(USE_FSEEK64) +#define fseek fseeko +#endif #ifdef HAS_FGETPOS #define PerlIO_getpos(f,p) fgetpos(f,p) #endif |
