diff options
author | Andy Lester <andy@petdance.com> | 2005-05-16 05:13:53 -0500 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-16 16:56:43 +0000 |
commit | a3b680e6b77dd7f88268fad8b1dbdf4f641dd836 (patch) | |
tree | 5b6dc5a60baf7a56b2db73bf0faffe0c3c44963c /XSUB.h | |
parent | 02a44301bf4932369de0c75ad20a9c1256a455cd (diff) | |
download | perl-a3b680e6b77dd7f88268fad8b1dbdf4f641dd836.tar.gz |
consting-eleventy.patch: More consts, plus actual bug fix
Message-ID: <20050516151353.GA25387@petdance.com>
p4raw-id: //depot/perl@24489
Diffstat (limited to 'XSUB.h')
-rw-r--r-- | XSUB.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -99,18 +99,18 @@ is a lexical $_ in scope. # endif #endif -#define dAX I32 ax = MARK - PL_stack_base + 1 +#define dAX const I32 ax = MARK - PL_stack_base + 1 #define dAXMARK \ - I32 ax = POPMARK; \ - register SV **mark = PL_stack_base + ax++ + I32 ax = POPMARK; \ + register SV ** const mark = PL_stack_base + ax++ #define dITEMS I32 items = SP - MARK #define dXSARGS \ dSP; dAXMARK; dITEMS -#define dXSTARG SV * targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \ +#define dXSTARG SV * const targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \ ? PAD_SV(PL_op->op_targ) : sv_newmortal()) /* Should be used before final PUSHi etc. if not in PPCODE section. */ |