diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-13 22:48:40 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-13 22:48:40 +0000 |
| commit | d9b3e12dc6d5d94bcf6692f9359e377c8a7dcdd6 (patch) | |
| tree | 02fd6a0afe5f8a45764e5d35e16752db82d3a937 /perlio.c | |
| parent | cc4466b7484b22db3b089a085bc005d7a5460bed (diff) | |
| download | perl-d9b3e12dc6d5d94bcf6692f9359e377c8a7dcdd6.tar.gz | |
Jumbo Configure and large file support update.
Remove a lot of unneeded 64-bitness cruft;
re-introduce BYTEORDER; update 64-bitness hints;
lfs should now work in Solaris; long doubles in AIX.
p4raw-id: //depot/cfgperl@3982
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -385,22 +385,14 @@ PerlIO_vprintf(PerlIO *f, const char *fmt, va_list ap) Off_t PerlIO_tell(PerlIO *f) { -#ifdef HAS_FTELLO - return ftello(f); -#else return ftell(f); -#endif } #undef PerlIO_seek int PerlIO_seek(PerlIO *f, Off_t offset, int whence) { -#ifdef HAS_FSEEKO - return fseeko(f,offset,whence); -#else return fseek(f,offset,whence); -#endif } #undef PerlIO_rewind @@ -494,7 +486,11 @@ PerlIO_setpos(PerlIO *f, const Fpos_t *pos) int PerlIO_setpos(PerlIO *f, const Fpos_t *pos) { +#if defined(USE_64_BIT_STDIO) && defined(HAS_FSETPOS64) + return fsetpos64(f, pos); +#else return fsetpos(f, pos); +#endif } #endif #endif @@ -513,7 +509,11 @@ PerlIO_getpos(PerlIO *f, Fpos_t *pos) int PerlIO_getpos(PerlIO *f, Fpos_t *pos) { +#if defined(USE_64_BIT_STDIO) && defined(HAS_FSETPOS64) + return fgetpos64(f, pos); +#else return fgetpos(f, pos); +#endif } #endif #endif |