POPBLOCK: don't set newsp and gimme

This macro used to set these two vars as a side-effect.
Since we now usually access those values before we call POPBLOCK,
it's wasteful to set them again.

1 files changed, 1 insertions, 4 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 62287b92f2..d54eb3859b 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1444,8 +1444,6 @@ PP(pp_leavewrite)
     IO * const io = GvIOp(gv);
     PerlIO *ofp;
     PerlIO *fp;
-    SV **newsp;
-    I32 gimme;
     PERL_CONTEXT *cx;
     OP *retop;
     bool is_return = cBOOL(PL_op->op_type == OP_RETURN);
@@ -1525,7 +1523,7 @@ PP(pp_leavewrite)
     POPBLOCK(cx,PL_curpm);
     retop = cx->blk_sub.retop;
     POPFORMAT(cx);
-    SP = newsp; /* ignore retval of formline */
+    SP = PL_stack_base + cx->blk_oldsp; /* ignore retval of formline */
 
     if (is_return)
         /* XXX the semantics of doing 'return' in a format aren't documented.
@@ -1556,7 +1554,6 @@ PP(pp_leavewrite)
 	}
     }
     PL_formtarget = PL_bodytarget;
-    PERL_UNUSED_VAR(gimme);
     RETURNOP(retop);
 }