changeset 40:9b496a0c430a

merge
author anatofuz
date Tue, 27 Nov 2018 11:25:43 +0900
parents a25406f7da51 (diff) 2c51389684ca (current diff)
children d79216c6452b
files
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/core/cbc-interp.cbc	Fri Nov 16 18:08:17 2018 +0900
+++ b/src/core/cbc-interp.cbc	Tue Nov 27 11:25:43 2018 +0900
@@ -56,9 +56,14 @@
 #endif
 
 static int tracing_enabled = 0;
+static int op_count=0;
 
 __code cbc_next(INTERP i){
-    goto NEXT(i);
+    __code (*c)(INTERP);
+    printf("count=%d op=%d\n", op_count++, *i->cur_op);
+    c = CODES[NEXT_OP(i)];
+    i->tc->gc_status=0;
+    goto c(i);
 }
 
 __code cbc_no_op(INTERP i){