[inseparable changes from patch to perl 5.004_04]

[p5sagit/p5-mst-13.2.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index 271dc4d..c640d67 100644 (file)
--- 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