summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-09-06 12:35:56 -0700
committerFather Chrysostomos <sprout@cpan.org>2013-09-06 23:25:50 -0700
commitde935cc90faecfae2bc1afad24f1b5315a7787a0 (patch)
tree5ec1ecc928c47d5fe0523e9448c5ae2100eae9e1 /pp_ctl.c
parent8c9d3376fbfa04ec0e0e2164dcf7d9e824cf0e94 (diff)
downloadperl-de935cc90faecfae2bc1afad24f1b5315a7787a0.tar.gz
Allow 64-bit array and stack offsets in entersub & goto
I don’t have enough memory to test this, but it needs to be done even- tually anyway.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 47d8a1f942..7fd27f8531 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2909,7 +2909,7 @@ PP(pp_goto) /* also pp_dump */
mark = SP;
SP += items;
if (items && AvREAL(arg)) {
- I32 index;
+ SSize_t index;
for (index=0; index<items; index++)
if (SP[-index])
SvREFCNT_inc_void_NN(sv_2mortal(SP[-index]));