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

*developing lambda, fixed an upvalue passing issue.

Browse Source
This commit is contained in:
paladin-t 2016-01-08 12:12:31 +08:00
parent d8d1b13ef2
commit ef969dd8c2
3 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
HISTORY
View File

@ -1,5 +1,6 @@
Jan. 8 2016
Developing lambda, fixed a lambda scope linkage issue
Developing lambda, fixed an upvalue passing issue
Jan. 7 2016
Developing lambda, added parameter and upvalue processing

5
core/my_basic.c
View File

@ -3310,6 +3310,8 @@ int _eval_script_routine(mb_interpreter_t* s, _ls_node_t** l, mb_value_t* va, un
}
} while(ast);
_out_of_scope(s, running);
result = _proc_args(s, l, running, 0, 0, r, 0, 0, false);
if(result != MB_FUNC_OK)
goto _exit;
@ -3395,6 +3397,8 @@ int _eval_lambda_routine(mb_interpreter_t* s, _ls_node_t** l, mb_value_t* va, un
}
} while(ast);
_out_of_scope(s, running);
result = _proc_args(s, l, running, 0, 0, r, 0, 0, false);
if(result != MB_FUNC_OK)
goto _exit;
@ -6301,6 +6305,7 @@ int _fill_with_upvalue(void* data, void* extra, void* p) {
_ls_node_t* nori = _ht_find(tuple->scope->var_dict, (void*)n);
if(nori) {
_object_t* ovar = _create_object();
obj = (_object_t*)nori->data;
ovar->type = _DT_VAR;
ovar->data.variable = (_var_t*)mb_malloc(sizeof(_var_t));
memset(ovar->data.variable, 0, sizeof(_var_t));

BIN
output/my_basic.exe
View File

Binary file not shown.