From c03c28449e79a2a6287a0aa1cdd5d6637750d5c3 Mon Sep 17 00:00:00 2001 From: Stephen McCamant Date: Mon, 15 Jan 2001 09:14:37 -0800 Subject: [PATCH] Re: Eliminate op_children Message-ID: <14947.40656.841280.551785@soda.csua.berkeley.edu> Replace #8444 and #8445. p4raw-id: //depot/perl@8448 --- ext/B/B.xs | 12 ++++++++++++ ext/B/B/Debug.pm | 2 +- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/ext/B/B.xs b/ext/B/B.xs index 6b00e5a..25d69e9 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -650,6 +650,18 @@ LOGOP_other(o) MODULE = B PACKAGE = B::LISTOP PREFIX = LISTOP_ +U32 +LISTOP_children(o) + B::LISTOP o + OP * kid = NO_INIT + int i = NO_INIT + CODE: + ST(0) = sv_newmortal(); + i = 0; + for (kid = o->op_first; kid; kid = kid->op_sibling) + i++; + sv_setiv(ST(0), i); + #define PMOP_pmreplroot(o) o->op_pmreplroot #define PMOP_pmreplstart(o) o->op_pmreplstart #define PMOP_pmnext(o) o->op_pmnext diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm index 2ae1cd3..1327591 100644 --- a/ext/B/B/Debug.pm +++ b/ext/B/B/Debug.pm @@ -42,7 +42,7 @@ sub B::LOGOP::debug { sub B::LISTOP::debug { my ($op) = @_; $op->B::BINOP::debug(); - printf "\top_last\t\t0x%x\n", ${$op->last}; + printf "\top_children\t%d\n", $op->children; } sub B::PMOP::debug { -- 1.8.3.1