This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
macroise op_sibling in Perl_ck_fun()
authorDavid Mitchell <davem@iabyn.com>
Tue, 10 Jun 2014 15:34:16 +0000 (16:34 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 8 Jul 2014 15:40:03 +0000 (16:40 +0100)
commit88b3430b16a6618b54a0c785cd8e0aead375912b
tree773136133e62275efca5aed2ac8c7dfd8e043463
parent1ed44841e79d19d36361c250aecabc75154c999c
macroise op_sibling in Perl_ck_fun()

This is logically part of the previous commit, but since Perl_ck_fun()
took the address of o->op_sibling, it wasn't straightforward to simply
replace op_sibling with the relevant macros. So we now do it as a separate
commit.

It's basically trying to insert a new op into the sibling chain, and
depending on whether it inserts at the front or not, it updates
&cLISTOPo->op_first or &kid->op_sibling.

Rather than taking the address, make each assignment check whether the
destination is op_first or op_sibling. Slightly less elegant, but hey, it
works!
op.c