Add GosubUndefinedLabel

2016-12-28 17:43:53 +09:00
parent a887d91138
commit d240a0b0d6
2 changed files with 24 additions and 3 deletions
--- a/SMILEBASIC/VM.d
+++ b/SMILEBASIC/VM.d
@@ -2387,3 +2387,15 @@ class Use : Code
    }
 }

+class GosubUndefinedLabel : Code
+{
+    wstring label;
+    this(wstring label)
+    {
+        this.label = label;
+    }
+    override void execute(VM vm)
+    {
+        throw new UndefinedLabel(label);
+    }
+}