diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
commit | 22c35a8c2392967a5ba6b5370695be464bd7012c (patch) | |
tree | 8ecdc4d8fa4a4e49d2b6df0d82103a508cd03053 /dump.c | |
parent | 854e6445c2d6190b7a3d3208d8ff1250a817e551 (diff) | |
download | perl-22c35a8c2392967a5ba6b5370695be464bd7012c.tar.gz |
phase 1 of somewhat major rearrangement of PERL_OBJECT stuff
(objpp.h is gone, embed.pl now does some of that); objXSUB.h
should soon be automated also; the global variables that
escaped the PL_foo conversion are now reined in; renamed
MAGIC in regcomp.h to REG_MAGIC to avoid collision with the
type of same name; duplicated lists of pp_things in various
places is now gone; result has only been tested on win32
p4raw-id: //depot/perl@2133
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -110,7 +110,7 @@ dump_op(OP *o) PerlIO_printf(Perl_debug_log, "%-4d", o->op_seq); else PerlIO_printf(Perl_debug_log, " "); - dump("TYPE = %s ===> ", op_name[o->op_type]); + dump("TYPE = %s ===> ", PL_op_name[o->op_type]); if (o->op_next) { if (o->op_seq) PerlIO_printf(Perl_debug_log, "%d\n", o->op_next->op_seq); @@ -122,7 +122,7 @@ dump_op(OP *o) PL_dumplvl++; if (o->op_targ) { if (o->op_type == OP_NULL) - dump(" (was %s)\n", op_name[o->op_targ]); + dump(" (was %s)\n", PL_op_name[o->op_targ]); else dump("TARG = %d\n", o->op_targ); } |