3 * Copyright (c) 1991-1997, 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
19 dEXT char **watchaddr = 0;
23 runops_standard(void) {
26 while ( op = (*op->op_ppaddr)(ARGS) ) ;
33 static void debprof _((OP*o));
39 warn("NULL OP IN RUN");
45 if (watchaddr != 0 && *watchaddr != watchok)
46 PerlIO_printf(Perl_debug_log, "WARNING: %lx changed from %lx to %lx\n",
47 (long)watchaddr, (long)watchok, (long)*watchaddr);
52 } while ( op = (*op->op_ppaddr)(ARGS) );
62 deb("%s", op_name[o->op_type]);
65 PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo->op_sv));
71 gv_fullname3(sv, cGVOPo->op_gv, Nullch);
72 PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, na));
76 PerlIO_printf(Perl_debug_log, "(NULL)");
81 PerlIO_printf(Perl_debug_log, "\n");
90 PerlIO_printf(Perl_debug_log, "WATCHING, %lx is currently %lx\n",
91 (long)watchaddr, (long)watchok);
98 New(000, profiledata, MAXO, U32);
99 ++profiledata[o->op_type];
108 for (i = 0; i < MAXO; i++) {
110 PerlIO_printf(Perl_debug_log,
111 "%u\t%lu\n", i, (unsigned long)profiledata[i]);