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

+added a program too long error.

Browse Source
This commit is contained in:
Wang Renxin 2016-07-20 10:12:01 +08:00 committed by GitHub
parent 44b54bd524
commit 763177adda
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/my_basic.c
View File

@ -210,6 +210,7 @@ static const char* _ERR_DESC[] = {
"Invalid character",
/** Running */
"Empty program",
"Program too long",
"Syntax error",
"Invalid data type",
"Type does not match",
@ -12271,9 +12272,16 @@ int mb_load_string(struct mb_interpreter_t* s, const char* l, bool_t reset) {
if(n == 1) {
char ch = *l;
if((ch == _NEWLINE_CHAR || ch == _RETURN_CHAR) && (!wrapped || wrapped == ch)) {
unsigned short before = 0;
wrapped = ch;
++context->parsing_row;
before = context->parsing_row++;
context->parsing_col = 0;
if(before > context->parsing_row) {
context->parsing_col = 1;
_handle_error_now(s, SE_RN_PROGRAM_TOO_LONG, s->last_error_file, MB_FUNC_ERR);
goto _exit;
}
break;
}