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;
29 while ( op = (*op->op_ppaddr)() ) ;
37 static void debprof _((OP*op));
42 warn("NULL OP IN RUN");
51 if (watchaddr != 0 && *watchaddr != watchok)
52 PerlIO_printf(Perl_debug_log, "WARNING: %lx changed from %lx to %lx\n",
53 (long)watchaddr, (long)watchok, (long)*watchaddr);
58 } while ( op = (*op->op_ppaddr)() );
69 deb("%s", op_name[op->op_type]);
70 switch (op->op_type) {
72 PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOP->op_sv));
78 gv_fullname3(sv, cGVOP->op_gv, Nullch);
79 PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, na));
83 PerlIO_printf(Perl_debug_log, "(NULL)");
88 PerlIO_printf(Perl_debug_log, "\n");
98 PerlIO_printf(Perl_debug_log, "WATCHING, %lx is currently %lx\n",
99 (long)watchaddr, (long)watchok);
107 New(000, profiledata, MAXO, U32);
108 ++profiledata[op->op_type];
117 for (i = 0; i < MAXO; i++) {
119 PerlIO_printf(Perl_debug_log,
120 "%u\t%lu\n", i, (unsigned long)profiledata[i]);