diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
| commit | 3280af22f58e7b37514ed104858e2c2fc55ceeeb (patch) | |
| tree | 8fd8328859f022068272656f072a7ec4eecac0a6 /run.c | |
| parent | ef6361f9c2260919aefcc17b1b80f8857c67a84a (diff) | |
| download | perl-3280af22f58e7b37514ed104858e2c2fc55ceeeb.tar.gz | |
PL_ prefix to all perlvars, part1
Builds and passes all tests at one limit i.e. -DPERL_GLOBAL_STRUCT
p4raw-id: //depot/ansiperl@1532
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -55,7 +55,7 @@ runops_debug(void) } do { - if (debug) { + if (PL_debug) { if (watchaddr != 0 && *watchaddr != watchok) PerlIO_printf(Perl_debug_log, "WARNING: %lx changed from %lx to %lx\n", (long)watchaddr, (long)watchok, (long)*watchaddr); @@ -87,7 +87,7 @@ debop(OP *o) if (cGVOPo->op_gv) { sv = NEWSV(0,0); gv_fullname3(sv, cGVOPo->op_gv, Nullch); - PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, na)); + PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, PL_na)); SvREFCNT_dec(sv); } else @@ -116,9 +116,9 @@ STATIC void debprof(OP *o) { #ifdef DEBUGGING - if (!profiledata) - Newz(000, profiledata, MAXO, U32); - ++profiledata[o->op_type]; + if (!PL_profiledata) + Newz(000, PL_profiledata, MAXO, U32); + ++PL_profiledata[o->op_type]; #endif /* DEBUGGING */ } @@ -127,12 +127,12 @@ debprofdump(void) { #ifdef DEBUGGING unsigned i; - if (!profiledata) + if (!PL_profiledata) return; for (i = 0; i < MAXO; i++) { - if (profiledata[i]) + if (PL_profiledata[i]) PerlIO_printf(Perl_debug_log, - "%5lu %s\n", (unsigned long)profiledata[i], + "%5lu %s\n", (unsigned long)PL_profiledata[i], op_name[i]); } #endif /* DEBUGGING */ |