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

*fixed a forking issue.

Browse Source
This commit is contained in:
Wang Renxin 2017-11-12 11:13:04 +08:00
parent ba0c115baa
commit 48816291e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/my_basic.c
View File

@ -11985,7 +11985,7 @@ int mb_fork(struct mb_interpreter_t** s, struct mb_interpreter_t* r) {
running = _create_running_context(true); running = _create_running_context(true);
running->meta = _SCOPE_META_ROOT; running->meta = _SCOPE_META_ROOT;
(*s)->forked_context = (*s)->running_context = running; (*s)->forked_context = (*s)->running_context = running;
running->prev = r->running_context; running->prev = _get_root_scope(r->running_context);
(*s)->var_args = 0; (*s)->var_args = 0;