Support for op in global register (still buggy)

p4raw-id: //depot/perl@34

1 files changed, 12 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index 50c843d108..01b1fa9f59 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");
 	}