1 files changed, 5 insertions, 3 deletions
diff --git a/regexec.c b/regexec.c
index 271dc4d494..c640d6758d 100644
--- a/regexec.c
+++ b/regexec.c
@@ -143,7 +143,8 @@ regcppop()
  *	0 > length [ "foobar" =~ / ( (foo) | (bar) )* /x ]->[1]
  */
 static void
-regcppartblow()
+regcppartblow(base)
+I32 base;
 {
     I32 i = SSPOPINT;
     U32 paren;
@@ -160,6 +161,7 @@ regcppartblow()
 	if (paren <= *reglastparen && regendp[paren] == endp)
 	    regstartp[paren] = startp;
     }
+    assert(savestack_ix == base);
 }
 
 #define regcpblow(cp) leave_scope(cp)
@@ -664,8 +666,8 @@ char *prog;
 	if (regnarrate) {
 	    SV *prop = sv_newmortal();
 	    regprop(prop, scan);
-	    PerlIO_printf(Perl_debug_log, "%*s%2d%-8.8s\t<%.10s>\n",
-			  regindent*2, "", scan - regprogram,
+	    PerlIO_printf(Perl_debug_log, "%*s%2ld%-8.8s\t<%.10s>\n",
+			  regindent*2, "", (long)(scan - regprogram),
 			  SvPVX(prop), locinput);
 	}
 #else