diff options
| author | Vincent Pit <perl@profvince.com> | 2008-02-16 00:08:50 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-02-23 08:19:00 +0000 |
| commit | 996c9baa63e0776f6650c6ba32b83baefb5f0505 (patch) | |
| tree | ceede97c9784ea550dfbe56588e7d64969f6868d /dump.c | |
| parent | 910e06714ae57f4d3d804265c3d148726c7a8a2b (diff) | |
| download | perl-996c9baa63e0776f6650c6ba32b83baefb5f0505.tar.gz | |
Re: [PATCH] Splitting OP_CONST (Was: pp_const, not, that, hot?)
Message-ID: <47B60D72.50708@profvince.com>
Date: Fri, 15 Feb 2008 23:08:50 +0100
p4raw-id: //depot/perl@33356
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1065,6 +1065,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) #endif break; case OP_CONST: + case OP_HINTSEVAL: case OP_METHOD_NAMED: #ifndef USE_ITHREADS /* with ITHREADS, consts are stored in the pad, and the right pad @@ -2000,6 +2001,7 @@ Perl_debop(pTHX_ const OP *o) Perl_deb(aTHX_ "%s", OP_NAME(o)); switch (o->op_type) { case OP_CONST: + case OP_HINTSEVAL: PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo_sv)); break; case OP_GVSV: @@ -2839,6 +2841,7 @@ Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o) #endif break; case OP_CONST: + case OP_HINTSEVAL: case OP_METHOD_NAMED: #ifndef USE_ITHREADS /* with ITHREADS, consts are stored in the pad, and the right pad |