diff options
| author | Reini Urban <rurban@x-ray.at> | 2008-06-25 19:30:08 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-25 18:22:18 +0000 |
| commit | 6cefa69e9d69185d0ec476bab9be486186bafdb2 (patch) | |
| tree | a9f0ef61a83fe2c28f0afc4d86958d4a9a7db702 /dump.c | |
| parent | 7541f2962a69bff29a317e7f6bacaa949b3624ce (diff) | |
| download | perl-6cefa69e9d69185d0ec476bab9be486186bafdb2.tar.gz | |
Re: split smoke for threaded -DDEBUGGING builds
Message-ID: <48626480.7030602@x-ray.at>
Plus revert #34086
p4raw-id: //depot/perl@34087
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -2002,11 +2002,13 @@ Perl_debop(pTHX_ const OP *o) switch (o->op_type) { case OP_CONST: case OP_HINTSEVAL: - /* with ITHREADS, consts are stored in the pad, and the right pad + /* With ITHREADS, consts are stored in the pad, and the right pad * may not be active here, so check. - * (((SVOP*)o)->op_sv ? ((SVOP*)o)->op_sv : ((my_perl->Icurpad)[(o)->op_targ])) + * Looks like only during compiling the pads are illegal. */ - if (((SVOP*)o)->op_sv) +#ifdef USE_ITHREADS + if ((((SVOP*)o)->op_sv) || !IN_PERL_COMPILETIME) +#endif PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo_sv)); break; case OP_GVSV: |