#define sayNO goto no
#define saySAME(x) if (x) goto yes; else goto no
if (regnarrate) {
- fprintf(Perl_debug_log, "%*s%2d%-8.8s\t<%.10s>\n", regindent*2, "",
+ PerlIO_printf(Perl_debug_log, "%*s%2d%-8.8s\t<%.10s>\n", regindent*2, "",
scan - regprogram, regprop(scan), locinput);
}
#else
sayNO;
if (regeol - locinput < ln)
sayNO;
- if (ln > 1 && bcmp(s, locinput, ln) != 0)
+ if (ln > 1 && memcmp(s, locinput, ln) != 0)
sayNO;
locinput += ln;
nextchar = *locinput;
ln = regendp[n] - s;
if (locinput + ln > regeol)
sayNO;
- if (ln > 1 && bcmp(s, locinput, ln) != 0)
+ if (ln > 1 && memcmp(s, locinput, ln) != 0)
sayNO;
locinput += ln;
nextchar = *locinput;
#ifdef DEBUGGING
if (regnarrate)
- fprintf(Perl_debug_log, "%*s %d %lx\n", regindent*2, "",
+ PerlIO_printf(Perl_debug_log, "%*s %d %lx\n", regindent*2, "",
n, (long)cc);
#endif
sayNO;
break;
default:
- fprintf(stderr, "%x %d\n",(unsigned)scan,scan[1]);
+ PerlIO_printf(PerlIO_stderr(), "%x %d\n",(unsigned)scan,scan[1]);
FAIL("regexp memory corruption");
}
scan = next;