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;
28 while ( op = (*op->op_ppaddr)(ARGS) ) ;
35 static void debprof _((OP*o));
41 warn("NULL OP IN RUN");
50 if (watchaddr != 0 && *watchaddr != watchok)
51 PerlIO_printf(Perl_debug_log, "WARNING: %lx changed from %lx to %lx\n",
52 (long)watchaddr, (long)watchok, (long)*watchaddr);
57 } while ( op = (*op->op_ppaddr)(ARGS) );
68 deb("%s", op_name[o->op_type]);
71 PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo->op_sv));
77 gv_fullname3(sv, cGVOPo->op_gv, Nullch);
78 PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, na));
82 PerlIO_printf(Perl_debug_log, "(NULL)");
87 PerlIO_printf(Perl_debug_log, "\n");
97 PerlIO_printf(Perl_debug_log, "WATCHING, %lx is currently %lx\n",
98 (long)watchaddr, (long)watchok);
106 New(000, profiledata, MAXO, U32);
107 ++profiledata[o->op_type];
116 for (i = 0; i < MAXO; i++) {
118 PerlIO_printf(Perl_debug_log,
119 "%u\t%lu\n", i, (unsigned long)profiledata[i]);