changeset 26:7c854b59b164

modified return_label so as not to transition to the next code segment
author anatofuz
date Sat, 03 Nov 2018 17:06:30 +0900
parents 401bbab649d6
children c91369543ff0
files src/core/cbc-interp.cbc
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/core/cbc-interp.cbc	Fri Nov 02 19:49:50 2018 +0900
+++ b/src/core/cbc-interp.cbc	Sat Nov 03 17:06:30 2018 +0900
@@ -6417,14 +6417,14 @@
     MVM_debugserver_breakpoint_check(i->tc, file_idx, line_no);
     i->cur_op += 8;
     goto cbc_next(i);
-            }
+}
 __code cbc_coveragecontrol(INTERP i){
     MVMuint32 cc = (MVMuint32)GET_REG(i->cur_op, 0,i).i64;
     if (i->tc->instance->coverage_control && (cc == 0 || cc == 1))
         i->tc->instance->coverage_control = cc + 1;
     i->cur_op += 2;
     goto cbc_next(i);
-            }
+}
 
 __code cbc_return_label (INTERP i){
     /* Need to clear these pointer pointers since they may be rooted
@@ -6434,7 +6434,6 @@
     i->tc->interp_reg_base       = NULL;
     i->tc->interp_cu             = NULL;
     MVM_barrier();
-    goto cbc_next(i);
 }
 
 __code  cbc_op_call_extop (INTERP i) {