bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Implement local GOSUB expr

Browse Source
This commit is contained in:
otya128
2016-12-07 20:07:05 +09:00
parent 72e375276a
commit 92d5026c72
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SMILEBASIC/VM.d
View File

@@ -897,6 +897,11 @@ class GosubExpr : Code
if(label.isString) if(label.isString)
{ {
vm.pushpc;//vm.push(Value(vm.pc)); vm.pushpc;//vm.push(Value(vm.pc));
if (sc && sc.func)
{
vm.pc = sc.func.label[label.castString] - 1;
return;
}
vm.pc = vm.currentSlot.globalLabel[label.castString] - 1; vm.pc = vm.currentSlot.globalLabel[label.castString] - 1;
} }
else else