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

*fixed a crash bug with invalid collection index.

Browse Source
This commit is contained in:
Wang Renxin 2018-01-15 22:39:05 +08:00
parent 842e01bf41
commit a6814213b3
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
HISTORY
View File

@ -1,4 +1,5 @@
Jan. 15 2018
Fixed a crash bug with invalid collection index
Fixed a memory leak with invalid invoking
Fixed a wrong invoking of recursive sub routine

6
core/my_basic.c
View File

@ -13460,7 +13460,8 @@ int mb_set_coll(struct mb_interpreter_t* s, void** l, mb_value_t coll, mb_value_
while((int)ocoll.data.list->count <= i)
_push_list(ocoll.data.list, &ret, 0);
if(!_set_list(ocoll.data.list, i, &val, &oval)) {
_destroy_object(oval, 0);
if(oval)
_destroy_object(oval, 0);
_handle_error_on_obj(s, SE_RN_CANNOT_FIND_WITH_GIVEN_INDEX, s->source_file, DON2(l), MB_FUNC_ERR, _exit, result);
}
@ -17944,7 +17945,8 @@ static int _std_set(mb_interpreter_t* s, void** l) {
_mb_check_mark_exit(mb_pop_int(s, l, &idx), result, _exit);
_mb_check_mark_exit(mb_pop_value(s, l, &val), result, _exit);
if(!_set_list(obj.data.list, idx, &val, &oval)) {
_destroy_object(oval, 0);
if(oval)
_destroy_object(oval, 0);
_handle_error_on_obj(s, SE_RN_CANNOT_FIND_WITH_GIVEN_INDEX, s->source_file, DON2(l), MB_FUNC_ERR, _exit, result);
}