diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-21 17:01:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-21 17:01:16 +0000 |
| commit | 0e32cd814ab750f37cd765de6c19a6a112c89a81 (patch) | |
| tree | e9437eadb587a5acdf4c3963eb128d2dc2fdc970 /perlsdio.h | |
| parent | a6259068d1da929c6ca4f5acc9ed0401b5239600 (diff) | |
| download | perl-0e32cd814ab750f37cd765de6c19a6a112c89a81.tar.gz | |
Export the SOCKS workaround symbols only if necessary.
p4raw-id: //depot/perl@7791
Diffstat (limited to 'perlsdio.h')
| -rw-r--r-- | perlsdio.h | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/perlsdio.h b/perlsdio.h index 9e668f6184..1eb10d3abc 100644 --- a/perlsdio.h +++ b/perlsdio.h @@ -48,12 +48,14 @@ #else # ifdef SOCKS_64BIT_BUG # define PerlIO_getc(f) Perl_do_s64_getc(f) -# define PerlIO_ungetc(f,c) Perl_do_s64_ungetc(c,f) +# define PerlIO_ungetc(f,c) Perl_do_s64_ungetc(c,f) # define PerlIO_read(f,buf,count) Perl_do_s64_fread(buf,count,f) +# define PerlIO_tell(f) Perl_do_s64_tell(f) # else # define PerlIO_getc(f) getc(f) # define PerlIO_ungetc(f,c) ungetc(c,f) # define PerlIO_read(f,buf,count) (SSize_t)fread(buf,1,count,f) +# define PerlIO_tell(f) ftell(f) # endif /* SOCKS_64BIT_BUG */ #endif #define PerlIO_eof(f) feof(f) @@ -63,16 +65,11 @@ #define PerlIO_clearerr(f) clearerr(f) #define PerlIO_flush(f) Fflush(f) #ifdef SOCKS_64BIT_BUG -# define PerlIO_tell(f) Perl_do_s64_tell(f) +# define PerlIO_seek(f,o,w) Perl_do_s64_seek(f,o,w) #else -# define PerlIO_tell(f) ftell(f) -#endif -#if defined(VMS) && !defined(__DECC) +# 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 -# ifdef SOCKS_64BIT_BUG -# define PerlIO_seek(f,o,w) Perl_do_s64_seek(f,o,w) # else # define PerlIO_seek(f,o,w) fseek(f,o,w) # endif |