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, 2 deletions

diff --git a/pp_sort.c b/pp_sort.c
index bfd7fa2348..fbbf84811e 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1640,7 +1640,6 @@ PP(pp_sort)
 	SV **start;
 	if (PL_sortcop) {
 	    PERL_CONTEXT *cx;
-	    SV** newsp;
 	    const bool oldcatch = CATCH_GET;
             I32 old_savestack_ix = PL_savestack_ix;
 
@@ -1720,7 +1719,7 @@ PP(pp_sort)
                 PL_tmps_floor = cx->cx_u.cx_blk.blku_old_tmpsfloor;
 
 	    POPBLOCK(cx,PL_curpm);
-	    PL_stack_sp = newsp;
+	    PL_stack_sp = PL_stack_base + cx->blk_oldsp;
 	    POPSTACK;
 	    CATCH_SET(oldcatch);
 	}