diff options
| author | David Mitchell <davem@iabyn.com> | 2018-03-20 16:21:20 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2018-03-21 09:30:29 +0000 |
| commit | 321b2aa7ac696d15be70825c58264e195c1eb310 (patch) | |
| tree | 84b17cbfb514d85e0e9284de888df69c8c9f9587 | |
| parent | 7409ea5bbe81f691ca3a38072887895a24fbe4ed (diff) | |
| download | perl-321b2aa7ac696d15be70825c58264e195c1eb310.tar.gz | |
op_dump(): display PARENT of top-most node
When dumping a subtree, display the op_parent() value for
the top-most node of the subtree.
| -rw-r--r-- | dump.c | 5 | ||||
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 1 |
2 files changed, 6 insertions, 0 deletions
@@ -1000,6 +1000,11 @@ S_do_op_dump_bar(pTHX_ I32 level, UV bar, PerlIO *file, const OP *o) /* print op common fields */ + if (level == 0) { + S_opdump_indent(aTHX_ o, level, bar, file, "PARENT"); + S_opdump_link(aTHX_ o, op_parent((OP*)o), file); + } + if (o->op_targ && optype != OP_NULL) S_opdump_indent(aTHX_ o, level, bar, file, "TARG = %ld\n", (long)o->op_targ); diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 58dc109d97..2c0c849cf6 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1459,6 +1459,7 @@ for my $test ( dumpindent is 4 at -e line 1. 1 leave LISTOP(0xNNN) ===> [0x0] + PARENT ===> [0x0] TARG = 1 FLAGS = (VOID,KIDS,PARENS,SLABBED) PRIVATE = (REFC) |