pp_break(): don't use TOPBLOCK

It appears to be using TOPBLOCK purely for its effect of resetting
PL_stack_sp. Since the next op will be pp_leavegiven which will do a
POPBLOCK, the other actions of TOPBLOCK are redundant. So just set
PL_stack_sp directly.

diff --git a/pp_ctl.c b/pp_ctl.c
index 3643ec5..10e258b 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -5022,7 +5022,7 @@ PP(pp_break)
 
     /* Restore the sp at the time we entered the given block */
     cx = CX_CUR();
 
     /* Restore the sp at the time we entered the given block */
     cx = CX_CUR();

-    TOPBLOCK(cx);
+    PL_stack_sp = PL_stack_base + cx->blk_oldsp;

 
     return cx->blk_givwhen.leave_op;
 }
 
     return cx->blk_givwhen.leave_op;
 }