diff options
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 28 |
1 files changed, 14 insertions, 14 deletions
@@ -19,7 +19,7 @@ #ifdef PERL_OBJECT #define CALLOP this->*op #else -#define CALLOP *op +#define CALLOP *PL_op #endif int @@ -27,7 +27,7 @@ runops_standard(void) { dTHR; - while ( op = (CALLOP->op_ppaddr)(ARGS) ) ; + while ( PL_op = (CALLOP->op_ppaddr)(ARGS) ) ; TAINT_NOT; return 0; @@ -49,21 +49,21 @@ runops_debug(void) { #ifdef DEBUGGING dTHR; - if (!op) { + if (!PL_op) { warn("NULL OP IN RUN"); return 0; } do { - if (debug) { + if (PL_debug) { if (watchaddr != 0 && *watchaddr != watchok) PerlIO_printf(Perl_debug_log, "WARNING: %lx changed from %lx to %lx\n", (long)watchaddr, (long)watchok, (long)*watchaddr); DEBUG_s(debstack()); - DEBUG_t(debop(op)); - DEBUG_P(debprof(op)); + DEBUG_t(debop(PL_op)); + DEBUG_P(debprof(PL_op)); } - } while ( op = (CALLOP->op_ppaddr)(ARGS) ); + } while ( PL_op = (CALLOP->op_ppaddr)(ARGS) ); TAINT_NOT; return 0; @@ -87,7 +87,7 @@ debop(OP *o) if (cGVOPo->op_gv) { sv = NEWSV(0,0); gv_fullname3(sv, cGVOPo->op_gv, Nullch); - PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, na)); + PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, PL_na)); SvREFCNT_dec(sv); } else @@ -116,9 +116,9 @@ STATIC void debprof(OP *o) { #ifdef DEBUGGING - if (!profiledata) - Newz(000, profiledata, MAXO, U32); - ++profiledata[o->op_type]; + if (!PL_profiledata) + Newz(000, PL_profiledata, MAXO, U32); + ++PL_profiledata[o->op_type]; #endif /* DEBUGGING */ } @@ -127,12 +127,12 @@ debprofdump(void) { #ifdef DEBUGGING unsigned i; - if (!profiledata) + if (!PL_profiledata) return; for (i = 0; i < MAXO; i++) { - if (profiledata[i]) + if (PL_profiledata[i]) PerlIO_printf(Perl_debug_log, - "%5lu %s\n", (unsigned long)profiledata[i], + "%5lu %s\n", (unsigned long)PL_profiledata[i], op_name[i]); } #endif /* DEBUGGING */ |