X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=scope.c;h=01b1fa9f5962c91cbcac306f2c281b94b017f224;hb=6d4ff0d2f86d3c242b3f29bee3c2734df9ab8a3a;hp=50c843d1089f41085d0cd519ed648d70f02eabb5;hpb=e858de61083066071eb1526df39bdaa094032c61;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/scope.c b/scope.c
index 50c843d..01b1fa9 100644
--- a/scope.c
+++ b/scope.c
@@ -438,6 +438,15 @@ void* p;
 }
 
 void
+save_op()
+{
+    dTHR;
+    SSCHECK(2);
+    SSPUSHPTR(op);
+    SSPUSHINT(SAVEt_OP);
+}
+
+void
 leave_scope(base)
 I32 base;
 {
@@ -636,6 +645,9 @@ I32 base;
 		stack_sp = stack_base + delta;
 	    }
 	    break;
+	case SAVEt_OP:
+	    op = (OP*)SSPOPPTR;
+	    break;
 	default:
 	    croak("panic: leave_scope inconsistency");
 	}