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 /perl.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 'perl.h')
| -rw-r--r-- | perl.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -184,10 +184,13 @@ struct perl_thread; # define dTHXa(a) pTHX = (PerlInterpreter *)a # define dTHX dTHXa(PERL_GET_INTERP) # endif +# define mTHX macro_argument # define pTHX_ pTHX, # define _pTHX ,pTHX # define aTHX_ aTHX, # define _aTHX ,aTHX +# define mTHX_ mTHX, +# define _mTHX ,mTHX #endif #define STATIC static @@ -220,6 +223,9 @@ struct perl_thread; # define aTHX # define aTHX_ # define _aTHX +# define mTHX +# define mTHX_ +# define _mTHX # define dTHXa(a) dNOOP # define dTHX dNOOP #endif |