Add runtime check to run old code. Easier to debug/test.

1 files changed, 30 insertions, 17 deletions

diff --git a/interpret.h b/interpret.h
index 83ccbfc5..9910ea72 100644
--- a/interpret.h
+++ b/interpret.h
@@ -340,12 +340,16 @@ uninitialized_scalar:
 			lhs = r_get_field(t1, (Func_ptr *) 0, true);
 			decr_sp();
 			DEREF(t1);
-			/* only for $0, up ref count */
-			if (*lhs == fields_arr[0]) {
-				r = *lhs;
-				UPREF(r);
-			} else
+			if (do_old_mem) {
 				r = dupnode(*lhs);
+			} else {
+				/* only for $0, up ref count */
+				if (*lhs == fields_arr[0]) {
+					r = *lhs;
+					UPREF(r);
+				} else
+					r = dupnode(*lhs);
+			}
 			PUSH(r);
 			break;
 
@@ -654,21 +658,30 @@ mod:
 			lhs = get_lhs(pc->memory, false);
 			unref(*lhs);
 			r = pc->initval;	/* constant initializer */
-			if (r != NULL) {
-				UPREF(r);
-				*lhs = r;
-			} else {
-				r = POP_SCALAR();
-
-				/* if was a field, turn it into a var */
-				if ((r->flags & FIELD) == 0) {
+			if (do_old_mem) {
+				if (r == NULL)
+					*lhs = POP_SCALAR();
+				else {
+					UPREF(r);
 					*lhs = r;
-				} else if (r->valref == 1) {
-					r->flags &= ~FIELD;
+				}
+			} else {
+				if (r != NULL) {
+					UPREF(r);
 					*lhs = r;
 				} else {
-					*lhs = dupnode(r);
-					DEREF(r);
+					r = POP_SCALAR();
+
+					/* if was a field, turn it into a var */
+					if ((r->flags & FIELD) == 0) {
+						*lhs = r;
+					} else if (r->valref == 1) {
+						r->flags &= ~FIELD;
+						*lhs = r;
+					} else {
+						*lhs = dupnode(r);
+						DEREF(r);
+					}
 				}
 			}
 			break;