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

*fixed a mistake in previous commit.

Browse Source
This commit is contained in:
Wang Renxin 2017-11-15 20:02:18 +08:00
parent 5e995d280d
commit f9c0dcac31
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/my_basic.c
View File

@ -12146,10 +12146,16 @@ int mb_fork(struct mb_interpreter_t** s, struct mb_interpreter_t* r, bool_t clfk
int mb_join(struct mb_interpreter_t** s) { int mb_join(struct mb_interpreter_t** s) {
#ifdef MB_ENABLE_FORK #ifdef MB_ENABLE_FORK
int result = MB_FUNC_OK; int result = MB_FUNC_OK;
mb_interpreter_t* src = 0;
if(!s || !(*s) || !(*s)->forked_from) if(!s || !(*s) || !(*s)->forked_from)
return MB_FUNC_ERR; return MB_FUNC_ERR;
src = *s;
while(mb_get_forked_from(src, &src) == MB_FUNC_OK) {
/* Do nothing */
}
(*s)->valid = false; (*s)->valid = false;
_ls_destroy((*s)->sub_stack); _ls_destroy((*s)->sub_stack);
@ -12172,8 +12178,8 @@ int mb_join(struct mb_interpreter_t** s) {
_ls_foreach((*s)->lazy_destroy_objects, _destroy_object); _ls_foreach((*s)->lazy_destroy_objects, _destroy_object);
_ls_destroy((*s)->lazy_destroy_objects); _ls_destroy((*s)->lazy_destroy_objects);
if((*s)->all_forked) if(src->all_forked)
_ls_try_remove((*s)->all_forked, *s, _ls_cmp_data, 0); _ls_try_remove(src->all_forked, *s, _ls_cmp_data, 0);
safe_free(*s); safe_free(*s);