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) ) ;
32 Perl_runops_debug(pTHX)
37 if (ckWARN_d(WARN_DEBUGGING))
38 Perl_warner(aTHX_ WARN_DEBUGGING, "NULL OP IN RUN");
44 if (PL_watchaddr != 0 && *PL_watchaddr != PL_watchok)
45 PerlIO_printf(Perl_debug_log,
46 "WARNING: %"UVxf" changed from %"UVxf" to %"UVxf"\n",
47 PTR2UV(PL_watchaddr), PTR2UV(PL_watchok), (UV)*PL_watchaddr);
49 DEBUG_t(debop(PL_op));
50 DEBUG_P(debprof(PL_op));
52 } while ( PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX) );
57 return runops_standard();
58 #endif /* DEBUGGING */
62 Perl_debop(pTHX_ OP *o)
67 Perl_deb(aTHX_ "%s", PL_op_name[o->op_type]);
70 PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo->op_sv));
76 gv_fullname3(sv, (GV*)cSVOPo->op_sv, Nullch);
77 PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, n_a));
81 PerlIO_printf(Perl_debug_log, "(NULL)");
86 PerlIO_printf(Perl_debug_log, "\n");
87 #endif /* DEBUGGING */
92 Perl_watch(pTHX_ char **addr)
98 PerlIO_printf(Perl_debug_log, "WATCHING, %"UVxf" is currently %"UVxf"\n",
99 PTR2UV(PL_watchaddr), PTR2UV(PL_watchok));
100 #endif /* DEBUGGING */
104 S_debprof(pTHX_ OP *o)
108 Newz(000, PL_profiledata, MAXO, U32);
109 ++PL_profiledata[o->op_type];
110 #endif /* DEBUGGING */
114 Perl_debprofdump(pTHX)
120 for (i = 0; i < MAXO; i++) {
121 if (PL_profiledata[i])
122 PerlIO_printf(Perl_debug_log,
123 "%5lu %s\n", (unsigned long)PL_profiledata[i],
126 #endif /* DEBUGGING */