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

*renamed a parameter.

Browse Source
This commit is contained in:
Wang Renxin 2017-11-15 13:04:22 +08:00
parent 18b00672ed
commit 7357196928
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
MY-BASIC Quick Reference.pdf
View File

Binary file not shown.

6
core/my_basic.c
View File

@ -12076,7 +12076,7 @@ int mb_reset(struct mb_interpreter_t** s, bool_t clrf) {
} }
/* Fork a new MY-BASIC environment */ /* Fork a new MY-BASIC environment */
int mb_fork(struct mb_interpreter_t** s, struct mb_interpreter_t* r, bool_t cklv) { int mb_fork(struct mb_interpreter_t** s, struct mb_interpreter_t* r, bool_t clfk) {
#ifdef MB_ENABLE_FORK #ifdef MB_ENABLE_FORK
int result = MB_FUNC_OK; int result = MB_FUNC_OK;
_running_context_t* running = 0; _running_context_t* running = 0;
@ -12110,7 +12110,7 @@ int mb_fork(struct mb_interpreter_t** s, struct mb_interpreter_t* r, bool_t cklv
(*s)->forked_from = r; (*s)->forked_from = r;
if(cklv) if(clfk)
_ls_pushback(r->all_forked, *s); _ls_pushback(r->all_forked, *s);
mb_assert(MB_FUNC_OK == result); mb_assert(MB_FUNC_OK == result);
@ -12119,7 +12119,7 @@ int mb_fork(struct mb_interpreter_t** s, struct mb_interpreter_t* r, bool_t cklv
#else /* MB_ENABLE_FORK */ #else /* MB_ENABLE_FORK */
mb_unrefvar(s); mb_unrefvar(s);
mb_unrefvar(r); mb_unrefvar(r);
mb_unrefvar(cklv); mb_unrefvar(clfk);
return MB_FUNC_ERR; return MB_FUNC_ERR;
#endif /* MB_ENABLE_FORK */ #endif /* MB_ENABLE_FORK */

2
core/my_basic.h
View File

@ -604,7 +604,7 @@ MBAPI int mb_open(struct mb_interpreter_t** s);
MBAPI int mb_close(struct mb_interpreter_t** s); MBAPI int mb_close(struct mb_interpreter_t** s);
MBAPI int mb_reset(struct mb_interpreter_t** s, bool_t clrf/* = false*/); MBAPI int mb_reset(struct mb_interpreter_t** s, bool_t clrf/* = false*/);
MBAPI int mb_fork(struct mb_interpreter_t** s, struct mb_interpreter_t* r, bool_t cklv/* = true*/); MBAPI int mb_fork(struct mb_interpreter_t** s, struct mb_interpreter_t* r, bool_t clfk/* = true*/);
MBAPI int mb_join(struct mb_interpreter_t** s); MBAPI int mb_join(struct mb_interpreter_t** s);
MBAPI int mb_get_forked_from(struct mb_interpreter_t* s, struct mb_interpreter_t** src); MBAPI int mb_get_forked_from(struct mb_interpreter_t* s, struct mb_interpreter_t** src);