Mercurial > hg > Members > anatofuz > MoarVM

changeset 39:a25406f7da51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add_debug_cbc_pc
author anatofuz
date Tue, 27 Nov 2018 11:24:34 +0900
parents 1bec35c665bd
children 9b496a0c430a
files src/core/cbc-interp.cbc
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/core/cbc-interp.cbc	Sun Nov 04 21:09:28 2018 +0900
+++ b/src/core/cbc-interp.cbc	Tue Nov 27 11:24:34 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){