3 * Copyright (c) 1991-1999, Larry Wall
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
14 * "Away now, Shadowfax! Run, greatheart, run as you have never run before!
15 * Now we are come to the lands where you were foaled, and every stone you
16 * know. Run now! Hope is in speed!" --Gandalf
20 #define CALLOP this->*PL_op
30 while ( PL_op = (CALLOP->op_ppaddr)(ARGS) ) ;
38 dEXT char **watchaddr = 0;
42 static void debprof _((OP*o));
45 #endif /* DEBUGGING */
53 warn("NULL OP IN RUN");
59 if (watchaddr != 0 && *watchaddr != watchok)
60 PerlIO_printf(Perl_debug_log, "WARNING: %lx changed from %lx to %lx\n",
61 (long)watchaddr, (long)watchok, (long)*watchaddr);
63 DEBUG_t(debop(PL_op));
64 DEBUG_P(debprof(PL_op));
66 } while ( PL_op = (CALLOP->op_ppaddr)(ARGS) );
71 return runops_standard();
72 #endif /* DEBUGGING */
81 deb("%s", op_name[o->op_type]);
84 PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo->op_sv));
90 gv_fullname3(sv, cGVOPo->op_gv, Nullch);
91 PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, n_a));
95 PerlIO_printf(Perl_debug_log, "(NULL)");
100 PerlIO_printf(Perl_debug_log, "\n");
101 #endif /* DEBUGGING */
111 PerlIO_printf(Perl_debug_log, "WATCHING, %lx is currently %lx\n",
112 (long)watchaddr, (long)watchok);
113 #endif /* DEBUGGING */
121 Newz(000, PL_profiledata, MAXO, U32);
122 ++PL_profiledata[o->op_type];
123 #endif /* DEBUGGING */
133 for (i = 0; i < MAXO; i++) {
134 if (PL_profiledata[i])
135 PerlIO_printf(Perl_debug_log,
136 "%5lu %s\n", (unsigned long)PL_profiledata[i],
139 #endif /* DEBUGGING */