Skip to content

Commit

Permalink
List-OP removal: Fix compile fail on C90
Browse files Browse the repository at this point in the history
Apologies. I'd applied Reini's patch to my optimization branch. I think
it got lost when I switched to Dave's variant my original code (which
didn't have Reini's C90 fix). Sorry!
  • Loading branch information
tsee committed Feb 26, 2014
1 parent 7d3c8a6 commit 935d2dd
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion op.c
Expand Up @@ -11155,12 +11155,14 @@ S_inplace_aassign(pTHX_ OP *o) {
STATIC void
S_null_listop_in_list_context(pTHX_ OP *o)
{
OP *kid;

PERL_ARGS_ASSERT_NULL_LISTOP_IN_LIST_CONTEXT;

/* This is an OP_LIST in list context. That means we
* can ditch the OP_LIST and the OP_PUSHMARK within. */

OP *kid = cLISTOPo->op_first;
kid = cLISTOPo->op_first;
/* Find the end of the chain of OPs executed within the OP_LIST. */
while (kid->op_next != o) {
assert(kid);
Expand Down

0 comments on commit 935d2dd

Please sign in to comment.