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 /op.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 'op.h')
| -rw-r--r-- | op.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -117,13 +117,14 @@ typedef U32 PADOFFSET; /* Private for OP_REPEAT */ #define OPpREPEAT_DOLIST 64 /* List replication. */ -/* Private for OP_ENTERSUB, OP_RV2?V, OP_?ELEM */ +/* Private for OP_RV2?V, OP_?ELEM */ #define OPpDEREF (32|64) /* Want ref to something: */ #define OPpDEREF_AV 32 /* Want ref to AV. */ #define OPpDEREF_HV 64 /* Want ref to HV. */ #define OPpDEREF_SV (32|64) /* Want ref to SV. */ /* OP_ENTERSUB only */ #define OPpENTERSUB_DB 16 /* Debug subroutine. */ +#define OPpENTERSUB_HASTARG 32 /* Called from OP tree. */ /* OP_RV2CV only */ #define OPpENTERSUB_AMPER 8 /* Used & form to call. */ #define OPpENTERSUB_NOPAREN 128 /* bare sub call (without parens) */ |