This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make op_free() non-recursive
authorDavid Mitchell <davem@iabyn.com>
Mon, 8 Apr 2019 13:17:59 +0000 (14:17 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 24 Jun 2019 10:40:06 +0000 (11:40 +0100)
commit73cdf3a836756ebe82b64077bf38de0bf44736dc
tree1457fa22756899041c1e2954ecf853bca0c77b63
parent2a56a87fe357165c2bf7fc0d0f54565fef60bb9a
Make op_free() non-recursive

Stop using the DEFER mechanism (which could leak if something croaks)
and instead tree walk using the new OP_PARENT link to allow walking
back up the tree.

The freeing is done depth-first: children are freed before their
parents.
op.c