diff options
| author | Matthew Horsfall <WolfSage@gmail.com> | 2013-10-03 10:09:22 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-10-25 23:40:55 -0700 |
| commit | a854082c1ddc5c6bb8d493a0cc4930601215559b (patch) | |
| tree | 24576a93db781e801beb138d26621fe184474755 /ext/B/B | |
| parent | 33ac96a5b7ec024766153eab2d7bb78a951877a2 (diff) | |
| download | perl-a854082c1ddc5c6bb8d493a0cc4930601215559b.tar.gz | |
Add op_other to B::Concise -debug output for LOGOPs
Diffstat (limited to 'ext/B/B')
| -rw-r--r-- | ext/B/B/Concise.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 40713aa711..632cc66678 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -46,7 +46,8 @@ my %style = "gt_#seq ", "(?(#seq)?)#noise#arg(?([#targarg])?)"], "debug" => - ["#class (#addr)\n\top_next\t\t#nextaddr\n\top_sibling\t#sibaddr\n\t" + ["#class (#addr)\n\top_next\t\t#nextaddr\n\t(?(op_other\t#otheraddr\n\t)?)" + . "op_sibling\t#sibaddr\n\t" . "op_ppaddr\tPL_ppaddr[OP_#NAME]\n\top_type\t\t#typenum\n" . "\top_flags\t#flagval\n\top_private\t#privval\t#hintsval\n" . "(?(\top_first\t#firstaddr\n)?)(?(\top_last\t\t#lastaddr\n)?)" @@ -887,6 +888,7 @@ sub concise_op { } elsif ($h{class} eq "LOGOP") { undef $lastnext; $h{arg} = "(other->" . seq($op->other) . ")"; + $h{otheraddr} = sprintf("%#x", $ {$op->other}); } elsif ($h{class} eq "SVOP" or $h{class} eq "PADOP") { unless ($h{name} eq 'aelemfast' and $op->flags & OPf_SPECIAL) { |