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

*fixed an invalid execution point bug when a program begins with a label.

Browse Source
This commit is contained in:
paladin-t 2016-01-01 14:28:28 +08:00
parent 42a602d8a3
commit e07eb9210e
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
HISTORY
View File

@ -1,6 +1,7 @@
Jan. 1 2016 Version 1.2 Jan. 1 2016 Version 1.2
Added a new sample script source file Added a new sample script source file
Added case-insensitive type name string comparison support Added case-insensitive type name string comparison support
Fixed an invalid execution point bug when a program begins with a label
Dec. 30 2015 Dec. 30 2015
Improved error handling with sub routine and class Improved error handling with sub routine and class

2
core/my_basic.c
View File

@ -10701,6 +10701,8 @@ int _core_goto(mb_interpreter_t* s, void** l) {
mb_assert(label->node && label->node->prev); mb_assert(label->node && label->node->prev);
ast = label->node->prev; ast = label->node->prev;
if(ast && !ast->data)
ast = ast->next;
_exit: _exit:
*l = ast; *l = ast;