From e07eb9210e3827ee279c7e5a3cdaf9ea99483cef Mon Sep 17 00:00:00 2001
From: paladin-t <hellotony521@qq.com>
Date: Fri, 1 Jan 2016 14:28:28 +0800
Subject: [PATCH] *fixed an invalid execution point bug when a program begins
 with a label.

---
 HISTORY         | 1 +
 core/my_basic.c | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/HISTORY b/HISTORY
index 8842ecb..e725646 100755
--- a/HISTORY
+++ b/HISTORY
@@ -1,6 +1,7 @@
 Jan. 1 2016 Version 1.2
 Added a new sample script source file
 Added case-insensitive type name string comparison support
+Fixed an invalid execution point bug when a program begins with a label
 
 Dec. 30 2015
 Improved error handling with sub routine and class
diff --git a/core/my_basic.c b/core/my_basic.c
index 6c3dcb1..1ddf8fa 100755
--- a/core/my_basic.c
+++ b/core/my_basic.c
@@ -10701,6 +10701,8 @@ int _core_goto(mb_interpreter_t* s, void** l) {
 
 	mb_assert(label->node && label->node->prev);
 	ast = label->node->prev;
+	if(ast && !ast->data)
+		ast = ast->next;
 
 _exit:
 	*l = ast;