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.
15 * "Away now, Shadowfax! Run, greatheart, run as you have never run before!
16 * Now we are come to the lands where you were foaled, and every stone you
17 * know. Run now! Hope is in speed!" --Gandalf
21 Perl_runops_standard(pTHX)
25 while ( PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX) ) {
34 Perl_runops_debug(pTHX)
39 if (ckWARN_d(WARN_DEBUGGING))
40 Perl_warner(aTHX_ WARN_DEBUGGING, "NULL OP IN RUN");
47 if (PL_watchaddr != 0 && *PL_watchaddr != PL_watchok)
48 PerlIO_printf(Perl_debug_log,
49 "WARNING: %"UVxf" changed from %"UVxf" to %"UVxf"\n",
50 PTR2UV(PL_watchaddr), PTR2UV(PL_watchok), (UV)*PL_watchaddr);
52 DEBUG_t(debop(PL_op));
53 DEBUG_P(debprof(PL_op));
55 } while ( PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX) );
60 return runops_standard();
61 #endif /* DEBUGGING */
65 Perl_debop(pTHX_ OP *o)
70 Perl_deb(aTHX_ "%s", PL_op_name[o->op_type]);
73 PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo->op_sv));
79 gv_fullname3(sv, cGVOPo, Nullch);
80 PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, n_a));
84 PerlIO_printf(Perl_debug_log, "(NULL)");
89 PerlIO_printf(Perl_debug_log, "\n");
90 #endif /* DEBUGGING */
95 Perl_watch(pTHX_ char **addr)
101 PerlIO_printf(Perl_debug_log, "WATCHING, %"UVxf" is currently %"UVxf"\n",
102 PTR2UV(PL_watchaddr), PTR2UV(PL_watchok));
103 #endif /* DEBUGGING */
107 S_debprof(pTHX_ OP *o)
111 Newz(000, PL_profiledata, MAXO, U32);
112 ++PL_profiledata[o->op_type];
113 #endif /* DEBUGGING */
117 Perl_debprofdump(pTHX)
123 for (i = 0; i < MAXO; i++) {
124 if (PL_profiledata[i])
125 PerlIO_printf(Perl_debug_log,
126 "%5lu %s\n", (unsigned long)PL_profiledata[i],
129 #endif /* DEBUGGING */