bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

VSYNC,CLS実装,引数なし関数をコンパイルするときに暴走しないように

Browse Source
This commit is contained in:
otya128
2015-07-12 11:48:23 +09:00
parent 7ad5c9ff3c
commit f985fbbede
4 changed files with 241 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SMILEBASIC/VM.d
View File

@@ -70,6 +70,11 @@ class VM
}
void push(ref Value value)
{
if(stacki >= this.stack.length)
{
writeln("Stack OF");
readln();
}
stack[stacki++] = value;
}
void push(Value value)
@@ -138,17 +143,17 @@ class PrintCode : Code
switch(arg.type)
{
case ValueType.Integer:
write(arg.integerValue);
//write(arg.integerValue);
if(vm.petitcomputer)
vm.petitcomputer.printConsole(arg.integerValue);
break;
case ValueType.Double:
write(arg.doubleValue);
//write(arg.doubleValue);
if(vm.petitcomputer)
vm.petitcomputer.printConsole(arg.doubleValue);
break;
case ValueType.String:
write(arg.stringValue);
//write(arg.stringValue);
if(vm.petitcomputer)
vm.petitcomputer.printConsole(arg.stringValue);
break;
@@ -880,5 +885,6 @@ class CallBuiltinFunction : Code
result = vm.stack[vm.stacki - argcount..vm.stacki - argcount + outcount];//雑;
}
func.func(vm.petitcomputer, arg, result);
vm.stacki -= func.argments.length;
}
}