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

*fixed an error raising issue with incomplete if structure.

Browse Source
This commit is contained in:
paladin-t 2016-04-19 11:31:39 +08:00
parent 7d35fe3243
commit 9a4363a547
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
HISTORY
View File

@ -1,3 +1,6 @@
Apr. 19 2016
Fixed an error raising issue with incomplete IF structure
Apr. 18 2016
Fixed an invalid iterator issue with ranged list

9
core/my_basic.c
View File

@ -9501,8 +9501,9 @@ static int _common_end_looping(mb_interpreter_t* s, _ls_node_t** l) {
mb_assert(s && l);
if(_skip_struct(s, l, _core_for, _core_next) == MB_FUNC_OK)
_skip_to(s, l, 0, _DT_EOS);
result = _skip_struct(s, l, _core_for, _core_next);
if(result == MB_FUNC_OK)
result = _skip_to(s, l, 0, _DT_EOS);
return result;
}
@ -9625,7 +9626,7 @@ _to:
if((_compare_numbers(step_val_ptr, &_OBJ_INT_ZERO) == 1 && _compare_numbers(var_loop->data, to_val_ptr) == 1) ||
(_compare_numbers(step_val_ptr, &_OBJ_INT_ZERO) == -1 && _compare_numbers(var_loop->data, to_val_ptr) == -1)) {
/* End looping */
_common_end_looping(s, &ast);
result = _common_end_looping(s, &ast);
goto _exit;
} else {
@ -9713,7 +9714,7 @@ _to:
}
if(!lit && !dit) {
/* End looping */
_common_end_looping(s, &ast);
result = _common_end_looping(s, &ast);
goto _exit;
} else {