List-OP removal: Fix compile fail on C90
authorSteffen Mueller <smueller@cpan.org>
Wed, 26 Feb 2014 20:51:56 +0000 (21:51 +0100)
committerSteffen Mueller <smueller@cpan.org>
Wed, 26 Feb 2014 20:52:52 +0000 (21:52 +0100)
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!

op.c

diff --git a/op.c b/op.c
index 508dce6..c401fbc 100644 (file)
--- a/op.c
+++ b/op.c
@@ -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);