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

*fixed an error prompting bug with the INPUT statement.

Browse Source
This commit is contained in:
Wang Renxin 2017-10-14 16:59:09 +08:00
parent ae3597a8ba
commit 8523c80d97
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
HISTORY
View File

@ -1,5 +1,6 @@
Oct. 14 2017
Fixed a multiple disposing bug with the PRINT statement
Fixed an error prompting bug with the INPUT statement
Oct. 9 2017
Improved expression evaluation speed

8
core/my_basic.c
View File

@ -17589,9 +17589,7 @@ static int _std_input(mb_interpreter_t* s, void** l) {
obj->data.variable->data->type = _DT_REAL;
obj->data.variable->data->data.float_point = (real_t)mb_strtod(line, &conv_suc);
if(*conv_suc != _ZERO_CHAR) {
result = MB_FUNC_ERR;
goto _exit;
_handle_error_on_obj(s, SE_RN_INVALID_ID_USAGE, s->source_file, DON(ast), MB_FUNC_ERR, _exit, result);
}
}
ast = ast->next;
@ -17622,9 +17620,7 @@ static int _std_input(mb_interpreter_t* s, void** l) {
#endif /* MB_CP_VC && MB_ENABLE_UNICODE */
ast = ast->next;
} else {
result = MB_FUNC_ERR;
goto _exit;
_handle_error_on_obj(s, SE_RN_INVALID_ID_USAGE, s->source_file, DON(ast), MB_FUNC_ERR, _exit, result);
}
_exit: