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

+added lambda tracing.

Browse Source
This commit is contained in:
Wang Renxin 2016-06-21 10:20:12 +08:00 committed by GitHub
parent b4129948a5
commit 9c62bd9550
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/my_basic.c
View File

@ -3961,6 +3961,12 @@ static int _eval_routine(mb_interpreter_t* s, _ls_node_t** l, mb_value_t* va, un
result = _eval_script_routine(s, l, va, ca, r, has_arg, pop_arg); result = _eval_script_routine(s, l, va, ca, r, has_arg, pop_arg);
#ifdef MB_ENABLE_LAMBDA #ifdef MB_ENABLE_LAMBDA
} else if(r->type == _IT_LAMBDA && r->func.lambda.entry) { } else if(r->type == _IT_LAMBDA && r->func.lambda.entry) {
_ls_node_t* top = _ls_back(s->stack_frames);
if(top) {
char ln[32];
sprintf(ln, "LAMBDA_0x%p", &r->func.lambda.ref);
top->data = ln;
}
result = _eval_lambda_routine(s, l, va, ca, r, has_arg, pop_arg); result = _eval_lambda_routine(s, l, va, ca, r, has_arg, pop_arg);
#endif /* MB_ENABLE_LAMBDA */ #endif /* MB_ENABLE_LAMBDA */
} else if(r->type == _IT_NATIVE && r->func.native.entry) { } else if(r->type == _IT_NATIVE && r->func.native.entry) {