diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-20 21:05:26 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-20 21:05:26 +0000 |
| commit | 8e6639977ceec4416fe89fd83cf666f06787f259 (patch) | |
| tree | 412ea4db23f6e3eebb4e39908fbdd6d63d9673ba /deb.c | |
| parent | a61a7064557baa67e0ffb901e9b818027edd3eb7 (diff) | |
| download | perl-8e6639977ceec4416fe89fd83cf666f06787f259.tar.gz | |
Move retop first in structs block_sub, block_format and block_eval.
This simplifies some code in Perl_deb_stack_all().
p4raw-id: //depot/perl@33016
Diffstat (limited to 'deb.c')
| -rw-r--r-- | deb.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -293,8 +293,7 @@ Perl_deb_stack_all(pTHX) if (CxTYPE(cx) == CXt_EVAL || CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) { - const OP * const retop = (CxTYPE(cx) == CXt_EVAL) - ? cx->blk_eval.retop : cx->blk_sub.retop; + const OP * const retop = cx->blk_sub.retop; PerlIO_printf(Perl_debug_log, " retop=%s\n", retop ? OP_NAME(retop) : "(null)" |