X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doop.c;h=11dc837b33dc7240d0a40719c6cca8879841d5e4;hb=7b8d334a971230040a212bc5038097b3f600a094;hp=4b10dde91ec8259f4a4ffecb8808c10543b306e5;hpb=f3ea7b5ee70397733e54550d64ca43f4288e744f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doop.c b/doop.c
index 4b10dde..11dc837 100644
--- a/doop.c
+++ b/doop.c
@@ -474,7 +474,7 @@ do_kv(ARGSproto)
 	RETURN;
 
     if (gimme == G_SCALAR) {
-	I32 i;
+	IV i;
 	dTARGET;
 
 	if (op->op_flags & OPf_MOD) {	/* lvalue */
@@ -502,7 +502,7 @@ do_kv(ARGSproto)
     }
 
     /* Guess how much room we need.  hv_max may be a few too many.  Oh well. */
-    EXTEND(sp, HvMAX(hv) * (dokeys + dovalues));
+    EXTEND(SP, HvMAX(hv) * (dokeys + dovalues));
 
     PUTBACK;	/* hv_iternext and hv_iterval might clobber stack_sp */
     while (entry = realhv ? hv_iternext(hv) : avhv_iternext((AV*)hv)) {