summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-08 02:22:31 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-08 02:22:31 +0000
commite8347627432a616ec1485de221b2cd8c9e311c8b (patch)
treefc61d6fefbec8f2731573b6fda30cb8a504a34ae /regexec.c
parentbebdddfcca3c4bc8bb36ffcdf9e008f3b39772bf (diff)
downloadperl-e8347627432a616ec1485de221b2cd8c9e311c8b.tar.gz
introduce save_I8() for saving byte values
p4raw-id: //depot/perl@4665
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index 333f84235a..cce1166b16 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1632,12 +1632,12 @@ S_regtry(pTHX_ regexp *prog, char *startpos)
PerlIO_printf(Perl_debug_log, " setting stack tmpbase at %"IVdf"\n",
(IV)(PL_stack_sp - PL_stack_base));
));
- SAVEINT(cxstack[cxstack_ix].blk_oldsp);
+ SAVEI32(cxstack[cxstack_ix].blk_oldsp);
cxstack[cxstack_ix].blk_oldsp = PL_stack_sp - PL_stack_base;
/* Otherwise OP_NEXTSTATE will free whatever on stack now. */
SAVETMPS;
/* Apparently this is not needed, judging by wantarray. */
- /* SAVEINT(cxstack[cxstack_ix].blk_gimme);
+ /* SAVEI8(cxstack[cxstack_ix].blk_gimme);
cxstack[cxstack_ix].blk_gimme = G_SCALAR; */
if (PL_reg_sv) {