diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-04 09:36:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-04 09:36:13 +0000 |
| commit | 409faa39349110c38f5c96031ce0bdc4bdb50bfa (patch) | |
| tree | 4bf2aeb573712a88586be3e308431bb34a27115e /perlio.c | |
| parent | a62982a846c50953d49f512fd1ec36e63b0a9e81 (diff) | |
| download | perl-409faa39349110c38f5c96031ce0bdc4bdb50bfa.tar.gz | |
Minor fixes to linux -Dusethreads -Duseperlio.
p4raw-id: //depot/cfgperl@3918
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 12 |
1 files changed, 5 insertions, 7 deletions
@@ -157,8 +157,8 @@ PerlIO_set_cnt(PerlIO *f, int cnt) void PerlIO_set_ptrcnt(PerlIO *f, STDCHAR *ptr, int cnt) { -#ifdef FILE_bufsiz dTHX; +#ifdef FILE_bufsiz STDCHAR *e = FILE_base(f) + FILE_bufsiz(f); int ec = e - ptr; if (ptr > e + 1 && ckWARN_d(WARN_INTERNAL)) @@ -167,16 +167,14 @@ PerlIO_set_ptrcnt(PerlIO *f, STDCHAR *ptr, int cnt) Perl_warner(aTHX_ WARN_INTERNAL, "Setting cnt to %d, ptr implies %d\n",cnt,ec); #endif #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) - FILE_ptr(f) = ptr; + FILE_ptr(f) = ptr; #else - dTHX; - Perl_croak(aTHX_ "Cannot set 'ptr' of FILE * on this system"); + Perl_croak(aTHX_ "Cannot set 'ptr' of FILE * on this system"); #endif #if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE) - FILE_cnt(f) = cnt; + FILE_cnt(f) = cnt; #else - dTHX; - Perl_croak(aTHX_ "Cannot set 'cnt' of FILE * on this system"); + Perl_croak(aTHX_ "Cannot set 'cnt' of FILE * on this system"); #endif } |