Support for op in global register (still buggy)

[p5sagit/p5-mst-13.2.git] / scope.c

diff --git a/scope.c b/scope.c
index 50c843d..01b1fa9 100644 (file)
--- 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");
        }