quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*fixed a bug of the EXIT statement with FOR loop.

Browse Source
This commit is contained in:
Wang Renxin 2016-02-16 11:32:33 +08:00
parent e68120a8b2
commit a1a7a2e5ce
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
HISTORY
View File

@ -1,3 +1,6 @@
Feb. 16 2016
Fixed a bug of the EXIT statement with FOR loop
Feb. 15 2016
Fixed some compile issues with Xcode

15
core/my_basic.c
View File

@ -8882,7 +8882,6 @@ static int _common_keep_looping(mb_interpreter_t* s, _ls_node_t** l, _var_t* var
if(_skip_struct(s, &ast, _core_for, _core_next) != MB_FUNC_OK)
goto _exit;
_skip_to(s, &ast, 0, _DT_EOS);
result = MB_FUNC_OK;
goto _exit;
} else if(result != MB_FUNC_OK && result != MB_SUB_RETURN) { /* Normally */
@ -8972,7 +8971,12 @@ _to:
goto _exit;
} else {
/* Keep looping */
_common_keep_looping(s, &ast, var_loop);
result = _common_keep_looping(s, &ast, var_loop);
if(result == MB_LOOP_BREAK) {
result = MB_FUNC_OK;
goto _exit;
}
ass_tuple3.e1 = var_loop->data;
ass_tuple3.e2 = step_val_ptr;
@ -9062,7 +9066,12 @@ _to:
var_loop->data = (_object_t*)dit->curr_node->extra;
}
/* Keep looping */
_common_keep_looping(s, &ast, var_loop);
result = _common_keep_looping(s, &ast, var_loop);
if(result == MB_LOOP_BREAK) {
result = MB_FUNC_OK;
goto _exit;
}
goto _to;
}