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

*fixed a negative calculation issue with brackets.

Browse Source
This commit is contained in:
paladin-t 2016-04-13 14:52:34 +08:00
parent 86b76e0669
commit 8eaf8c1d43
3 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
HISTORY
View File

@ -1,3 +1,6 @@
Apr. 13 2016
Fixed a negative calculation issue with brackets
Apr. 11 2016
Fixed a calculation issue with the NOT statement

19
core/my_basic.c
View File

@ -12368,6 +12368,7 @@ _exit:
/* Operator - (negative) */
static int _core_neg(mb_interpreter_t* s, void** l) {
int result = MB_FUNC_OK;
_ls_node_t* ast = 0;
mb_value_t arg;
_running_context_t* running = 0;
int* inep = 0;
@ -12376,6 +12377,8 @@ static int _core_neg(mb_interpreter_t* s, void** l) {
mb_assert(s && l);
running = s->running_context;
ast = *l;
if(ast) ast = ast->next;
if(!_ls_empty(s->in_neg_expr))
inep = (int*)_ls_back(s->in_neg_expr)->data;
@ -12384,15 +12387,23 @@ static int _core_neg(mb_interpreter_t* s, void** l) {
(*inep)++;
calc_depth = running->calc_depth;
running->calc_depth = 1;
mb_make_nil(arg);
if(ast && _IS_FUNC((_object_t*)ast->data, _core_open_bracket)) {
mb_check(mb_attempt_open_bracket(s, l));
mb_check(mb_attempt_func_begin(s, l));
mb_check(mb_pop_value(s, l, &arg));
mb_check(mb_pop_value(s, l, &arg));
mb_check(mb_attempt_close_bracket(s, l));
} else {
running->calc_depth = 1;
mb_check(mb_attempt_func_end(s, l));
mb_check(mb_attempt_func_begin(s, l));
mb_check(mb_pop_value(s, l, &arg));
mb_check(mb_attempt_func_end(s, l));
}
if(inep)
(*inep)--;

BIN
output/my_basic.exe
View File

Binary file not shown.