This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix small nits
[perl5.git] / run.c
CommitLineData
a0d0e21e
LW
1/* run.c
2 *
4eb8286e 3 * Copyright (c) 1991-1999, Larry Wall
a0d0e21e
LW
4 *
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.
7 *
8 */
9
79072805 10#include "EXTERN.h"
864dbfa3 11#define PERL_IN_RUN_C
79072805
LW
12#include "perl.h"
13
a0d0e21e
LW
14/*
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
18 */
19
76e3520e 20#ifdef PERL_OBJECT
4c2891ed 21#define CALLOP this->*PL_op
76e3520e 22#else
533c011a 23#define CALLOP *PL_op
76e3520e 24#endif
79072805 25
a0d0e21e 26int
864dbfa3 27Perl_runops_standard(pTHX)
17c3b450 28{
11343788 29 dTHR;
a0d0e21e 30
66918de8 31 while ( PL_op = (CALLOP->op_ppaddr)(aTHX) ) ;
fd18d308
CS
32
33 TAINT_NOT;
a0d0e21e 34 return 0;
79072805
LW
35}
36
a0d0e21e 37int
864dbfa3 38Perl_runops_debug(pTHX)
35ff7856
GS
39{
40#ifdef DEBUGGING
11343788 41 dTHR;
533c011a 42 if (!PL_op) {
cea2e8a9 43 Perl_warn(aTHX_ "NULL OP IN RUN");
a0d0e21e 44 return 0;
79072805 45 }
a0d0e21e 46
79072805 47 do {
3280af22 48 if (PL_debug) {
22c35a8c 49 if (PL_watchaddr != 0 && *PL_watchaddr != PL_watchok)
760ac839 50 PerlIO_printf(Perl_debug_log, "WARNING: %lx changed from %lx to %lx\n",
22c35a8c 51 (long)PL_watchaddr, (long)PL_watchok, (long)*PL_watchaddr);
79072805 52 DEBUG_s(debstack());
533c011a
NIS
53 DEBUG_t(debop(PL_op));
54 DEBUG_P(debprof(PL_op));
79072805 55 }
66918de8 56 } while ( PL_op = (CALLOP->op_ppaddr)(aTHX) );
fd18d308
CS
57
58 TAINT_NOT;
a0d0e21e 59 return 0;
35ff7856
GS
60#else
61 return runops_standard();
17c3b450 62#endif /* DEBUGGING */
79072805
LW
63}
64
79072805 65I32
864dbfa3 66Perl_debop(pTHX_ OP *o)
79072805 67{
35ff7856 68#ifdef DEBUGGING
79072805 69 SV *sv;
2d8e6c8d 70 STRLEN n_a;
cea2e8a9 71 Perl_deb(aTHX_ "%s", PL_op_name[o->op_type]);
11343788 72 switch (o->op_type) {
79072805 73 case OP_CONST:
5dc0d613 74 PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo->op_sv));
79072805
LW
75 break;
76 case OP_GVSV:
77 case OP_GV:
11343788 78 if (cGVOPo->op_gv) {
79072805 79 sv = NEWSV(0,0);
5dc0d613 80 gv_fullname3(sv, cGVOPo->op_gv, Nullch);
2d8e6c8d 81 PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, n_a));
8990e307 82 SvREFCNT_dec(sv);
79072805
LW
83 }
84 else
760ac839 85 PerlIO_printf(Perl_debug_log, "(NULL)");
79072805 86 break;
a0d0e21e
LW
87 default:
88 break;
79072805 89 }
760ac839 90 PerlIO_printf(Perl_debug_log, "\n");
17c3b450 91#endif /* DEBUGGING */
79072805
LW
92 return 0;
93}
94
95void
864dbfa3 96Perl_watch(pTHX_ char **addr)
79072805 97{
35ff7856 98#ifdef DEBUGGING
22c35a8c
GS
99 dTHR;
100 PL_watchaddr = addr;
101 PL_watchok = *addr;
760ac839 102 PerlIO_printf(Perl_debug_log, "WATCHING, %lx is currently %lx\n",
22c35a8c 103 (long)PL_watchaddr, (long)PL_watchok);
17c3b450 104#endif /* DEBUGGING */
79072805 105}
a0d0e21e 106
76e3520e 107STATIC void
cea2e8a9 108S_debprof(pTHX_ OP *o)
a0d0e21e 109{
35ff7856 110#ifdef DEBUGGING
3280af22
NIS
111 if (!PL_profiledata)
112 Newz(000, PL_profiledata, MAXO, U32);
113 ++PL_profiledata[o->op_type];
35ff7856 114#endif /* DEBUGGING */
a0d0e21e
LW
115}
116
117void
864dbfa3 118Perl_debprofdump(pTHX)
a0d0e21e 119{
35ff7856 120#ifdef DEBUGGING
9607fc9c 121 unsigned i;
3280af22 122 if (!PL_profiledata)
a0d0e21e
LW
123 return;
124 for (i = 0; i < MAXO; i++) {
3280af22 125 if (PL_profiledata[i])
9607fc9c 126 PerlIO_printf(Perl_debug_log,
3280af22 127 "%5lu %s\n", (unsigned long)PL_profiledata[i],
22c35a8c 128 PL_op_name[i]);
a0d0e21e 129 }
17c3b450 130#endif /* DEBUGGING */
35ff7856 131}