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

patched with list validation

Browse Source
This commit is contained in:
Wang Renxin 2014-12-17 10:20:36 +08:00
parent 446adfc482
commit f6c01b3f48
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/my_basic.c
View File

@ -3664,7 +3664,8 @@ int mb_pop_value(mb_interpreter_t* s, void** l, mb_value_t* val) {
running = (_running_context_t*)(s->running_context); running = (_running_context_t*)(s->running_context);
inep = (int*)_ls_back(running->in_neg_expr)->data; if(!_ls_empty(running->in_neg_expr))
inep = (int*)_ls_back(running->in_neg_expr)->data;
val_ptr = &val_obj; val_ptr = &val_obj;
memset(val_ptr, 0, sizeof(_object_t)); memset(val_ptr, 0, sizeof(_object_t));
@ -3681,7 +3682,7 @@ int mb_pop_value(mb_interpreter_t* s, void** l, mb_value_t* val) {
_ls_pushback(running->temp_values, val_ptr); _ls_pushback(running->temp_values, val_ptr);
} }
if(running->no_eat_comma_mark < _NO_EAT_COMMA && !(*inep)) { if(running->no_eat_comma_mark < _NO_EAT_COMMA && (inep && !(*inep))) {
if(ast && ((_object_t*)(ast->data))->type == _DT_SEP && ((_object_t*)(ast->data))->data.separator == ',') { if(ast && ((_object_t*)(ast->data))->type == _DT_SEP && ((_object_t*)(ast->data))->data.separator == ',') {
ast = ast->next; ast = ast->next;
} }