diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 10:53:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 10:53:41 +0000 |
| commit | 52557c15924686d528dcb0096c4e8823c0bb6ffb (patch) | |
| tree | ddddb518b52f2100d4e51214d6a8bbc56b129ae4 /regcomp.c | |
| parent | 971a9dd36d83520d7040365d2791ad56b6d39411 (diff) | |
| parent | be9180d313f8d12f0b694e575718afb3478cc34b (diff) | |
| download | perl-52557c15924686d528dcb0096c4e8823c0bb6ffb.tar.gz | |
integrate cfgperl contents (op.[ch] needed manual resolve)
p4raw-id: //depot/perl@4556
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -867,7 +867,7 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm) PL_regprecomp = Nullch; return(NULL); } - DEBUG_r(PerlIO_printf(Perl_debug_log, "size %d ", PL_regsize)); + DEBUG_r(PerlIO_printf(Perl_debug_log, "size %"IVdf" ", (IV)PL_regsize)); /* Small enough for pointer-storage convention? If extralen==0, this means that we will not need long jumps. */ @@ -3188,7 +3188,7 @@ S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l) goto after_print; regprop(sv, node); PerlIO_printf(Perl_debug_log, "%4"IVdf":%*s%s", (IV)(node - start), - 2*l + 1, "", SvPVX(sv)); + (int)(2*l + 1), "", SvPVX(sv)); if (next == NULL) /* Next ptr. */ PerlIO_printf(Perl_debug_log, "(0)"); else |