diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-29 15:24:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-29 15:24:13 +0000 |
| commit | d7d93a8159c0ca10065c583e76157a51736a62cd (patch) | |
| tree | f3a39f4d05385b4024b9735f2f8326d9b408756b /regexec.c | |
| parent | f868067f71962292cefa95e71c0bed29258aec96 (diff) | |
| download | perl-d7d93a8159c0ca10065c583e76157a51736a62cd.tar.gz | |
Remove quad logic from perl.h; regen Configure;
add -DUSE_LONG_LONG to ccflags if not already there.
p4raw-id: //depot/cfgperl@4487
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2182,7 +2182,7 @@ S_regmatch(pTHX_ regnode *prog) n = ARG(scan); PL_op = (OP_4tree*)PL_regdata->data[n]; - DEBUG_r( PerlIO_printf(Perl_debug_log, " re_eval 0x%"UVxf"\n", (UV)PL_op) ); + DEBUG_r( PerlIO_printf(Perl_debug_log, " re_eval 0x%"UVxf"\n", PTR2UV(PL_op)) ); PL_curpad = AvARRAY((AV*)PL_regdata->data[n + 2]); PL_regendp[0] = PL_reg_magic->mg_len = locinput - PL_bostr; @@ -3094,7 +3094,7 @@ S_regmatch(pTHX_ regnode *prog) break; default: PerlIO_printf(Perl_error_log, "%"UVxf" %d\n", - (UV)scan, OP(scan)); + PTR2UV(scan), OP(scan)); Perl_croak(aTHX_ "regexp memory corruption"); } scan = next; |