* know. Run now! Hope is in speed!" --Gandalf
*/
-#ifdef PERL_OBJECT
-#define CALLOP this->*PL_op
-#else
-#define CALLOP *PL_op
-#endif
-
int
Perl_runops_standard(pTHX)
{
dTHR;
- while ( PL_op = (CALLOP->op_ppaddr)(ARGS) ) ;
+ while ( PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX) ) ;
TAINT_NOT;
return 0;
#ifdef DEBUGGING
dTHR;
if (!PL_op) {
- warn("NULL OP IN RUN");
+ if (ckWARN_d(WARN_DEBUGGING))
+ Perl_warner(aTHX_ WARN_DEBUGGING, "NULL OP IN RUN");
return 0;
}
DEBUG_t(debop(PL_op));
DEBUG_P(debprof(PL_op));
}
- } while ( PL_op = (CALLOP->op_ppaddr)(ARGS) );
+ } while ( PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX) );
TAINT_NOT;
return 0;
#ifdef DEBUGGING
SV *sv;
STRLEN n_a;
- deb("%s", PL_op_name[o->op_type]);
+ Perl_deb(aTHX_ "%s", PL_op_name[o->op_type]);
switch (o->op_type) {
case OP_CONST:
PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo->op_sv));
}
STATIC void
-debprof(pTHX_ OP *o)
+S_debprof(pTHX_ OP *o)
{
#ifdef DEBUGGING
if (!PL_profiledata)