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 /iperlsys.h | |
| 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 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/iperlsys.h b/iperlsys.h index f6e19acb84..0aa4bd863a 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -220,13 +220,13 @@ struct IPerlStdIOInfo (*PL_StdIO->pClearerr)(PL_StdIO, (f)) #define PerlIO_getc(f) \ (*PL_StdIO->pGetc)(PL_StdIO, (f)) -#define PerlIO_get_base(f) \ +#define PerlIO_get_base(mTHX_ f) \ (*PL_StdIO->pGetBase)(PL_StdIO, (f)) -#define PerlIO_get_bufsiz(f) \ +#define PerlIO_get_bufsiz(mTHX_ f) \ (*PL_StdIO->pGetBufsiz)(PL_StdIO, (f)) -#define PerlIO_get_cnt(f) \ +#define PerlIO_get_cnt(mTHX_ f) \ (*PL_StdIO->pGetCnt)(PL_StdIO, (f)) -#define PerlIO_get_ptr(f) \ +#define PerlIO_get_ptr(mTHX_ f) \ (*PL_StdIO->pGetPtr)(PL_StdIO, (f)) #define PerlIO_putc(f,c) \ (*PL_StdIO->pPutc)(PL_StdIO, (f),(c)) @@ -252,9 +252,9 @@ struct IPerlStdIOInfo (*PL_StdIO->pSetBuf)(PL_StdIO, (f), (b)) #define PerlIO_setvbuf(f,b,t,s) \ (*PL_StdIO->pSetVBuf)(PL_StdIO, (f),(b),(t),(s)) -#define PerlIO_set_cnt(f,c) \ +#define PerlIO_set_cnt(mTHX_ f,c) \ (*PL_StdIO->pSetCnt)(PL_StdIO, (f), (c)) -#define PerlIO_set_ptrcnt(f,p,c) \ +#define PerlIO_set_ptrcnt(mTHX_ f,p,c) \ (*PL_StdIO->pSetPtrCnt)(PL_StdIO, (f), (p), (c)) #define PerlIO_setlinebuf(f) \ (*PL_StdIO->pSetlinebuf)(PL_StdIO, (f)) @@ -425,22 +425,22 @@ extern int PerlIO_fast_gets (PerlIO *); extern int PerlIO_canset_cnt (PerlIO *); #endif #ifndef PerlIO_get_ptr -extern STDCHAR * PerlIO_get_ptr (PerlIO *); +extern STDCHAR * PerlIO_get_ptr (pTHX_ PerlIO *); #endif #ifndef PerlIO_get_cnt -extern int PerlIO_get_cnt (PerlIO *); +extern int PerlIO_get_cnt (pTHX_ PerlIO *); #endif #ifndef PerlIO_set_cnt -extern void PerlIO_set_cnt (PerlIO *,int); +extern void PerlIO_set_cnt (pTHX_ PerlIO *,int); #endif #ifndef PerlIO_set_ptrcnt -extern void PerlIO_set_ptrcnt (PerlIO *,STDCHAR *,int); +extern void PerlIO_set_ptrcnt (pTHX_ PerlIO *,STDCHAR *,int); #endif #ifndef PerlIO_get_base -extern STDCHAR * PerlIO_get_base (PerlIO *); +extern STDCHAR * PerlIO_get_base (pTHX_ PerlIO *); #endif #ifndef PerlIO_get_bufsiz -extern int PerlIO_get_bufsiz (PerlIO *); +extern int PerlIO_get_bufsiz (pTHX_ PerlIO *); #endif #ifndef PerlIO_tmpfile extern PerlIO * PerlIO_tmpfile (void); |