diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-08-26 23:33:01 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-29 11:24:03 +0000 |
| commit | d30110745a7a78b4c83e13a8406bad8c3e3294bf (patch) | |
| tree | cd678ffeb189d909a729f68ec3e9c10a8a48d1b3 /pp.h | |
| parent | 09bef84370e90d727656ea11ba5ee8be80e361d3 (diff) | |
| download | perl-d30110745a7a78b4c83e13a8406bad8c3e3294bf.tar.gz | |
Speeding up XSUB calls up to 66%
To: perl5-porters@perl.org (Mailing list Perl5)
Message-Id: <199908270733.DAA16927@monk.mps.ohio-state.edu>
Addendum: it's "only" 33% speedup.
p4raw-id: //depot/cfgperl@4044
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -49,6 +49,8 @@ #define dTARG SV *targ +#define dXS_TARGET SV * targ = (PL_op->op_private & OPpENTERSUB_HASTARG ? PAD_SV(PL_op->op_targ) : sv_newmortal()) + #define NORMAL PL_op->op_next #define DIE return Perl_die |