diff options
| author | Sven Verdoolaege <skimo@breughel.ufsia.ac.be> | 1999-08-03 15:14:07 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-03 20:13:59 +0000 |
| commit | 92479810ad7bcca524d84878cb8fc5387a2d262c (patch) | |
| tree | 6e61defb098c1e6260381c9b949d9c8fa16056c5 /perlio.c | |
| parent | 961e40eebbdecbc4e587e5c0fd92623798217256 (diff) | |
| download | perl-92479810ad7bcca524d84878cb8fc5387a2d262c.tar.gz | |
(Retracted). See #3913.
To: perl5-porters@perl.org
Subject: [ID 19990803.003] Not OK: perl 5.00560 on i586-linux-thread
2.1.125 [PATCH]
Message-Id: <19990803131407.A30911@pool.kotnet.org>
p4raw-id: //depot/cfgperl@3912
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -141,7 +141,7 @@ PerlIO_canset_cnt(PerlIO *f) #undef PerlIO_set_cnt void -PerlIO_set_cnt(PerlIO *f, int cnt) +PerlIO_set_cnt(pTHX_ PerlIO *f, int cnt) { dTHX; if (cnt < -1 && ckWARN_d(WARN_INTERNAL)) @@ -155,7 +155,7 @@ PerlIO_set_cnt(PerlIO *f, int cnt) #undef PerlIO_set_ptrcnt void -PerlIO_set_ptrcnt(PerlIO *f, STDCHAR *ptr, int cnt) +PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR *ptr, int cnt) { #ifdef FILE_bufsiz dTHX; @@ -182,7 +182,7 @@ PerlIO_set_ptrcnt(PerlIO *f, STDCHAR *ptr, int cnt) #undef PerlIO_get_cnt int -PerlIO_get_cnt(PerlIO *f) +PerlIO_get_cnt(pTHX_ PerlIO *f) { #ifdef FILE_cnt return FILE_cnt(f); @@ -195,7 +195,7 @@ PerlIO_get_cnt(PerlIO *f) #undef PerlIO_get_bufsiz int -PerlIO_get_bufsiz(PerlIO *f) +PerlIO_get_bufsiz(pTHX_ PerlIO *f) { #ifdef FILE_bufsiz return FILE_bufsiz(f); @@ -208,7 +208,7 @@ PerlIO_get_bufsiz(PerlIO *f) #undef PerlIO_get_ptr STDCHAR * -PerlIO_get_ptr(PerlIO *f) +PerlIO_get_ptr(pTHX_ PerlIO *f) { #ifdef FILE_ptr return FILE_ptr(f); @@ -221,7 +221,7 @@ PerlIO_get_ptr(PerlIO *f) #undef PerlIO_get_base STDCHAR * -PerlIO_get_base(PerlIO *f) +PerlIO_get_base(pTHX_ PerlIO *f) { #ifdef FILE_base return FILE_base(f); @@ -287,7 +287,7 @@ PerlIO_eof(PerlIO *f) #undef PerlIO_getname char * -PerlIO_getname(PerlIO *f, char *buf) +PerlIO_getname(pTHX_ PerlIO *f, char *buf) { #ifdef VMS return fgetname(f,buf); |