Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-08-11 05:29:18 +00:00
Code Issues Projects Releases Wiki Activity

added exit function to astvm simulator

Browse Source
This commit is contained in:
Irmen de Jong 2020-03-13 02:44:01 +01:00
parent 64d682bfde
commit 0422ad080a
4 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/src/prog8/ast/processing/AstChecker.kt
View File

@ -1054,6 +1054,8 @@ internal class AstChecker(private val program: Program,
} }
} }
} }
// TODO warn about unreachable code following a return statement???
} }
private fun checkFunctionOrLabelExists(target: IdentifierReference, statement: Statement): Statement? { private fun checkFunctionOrLabelExists(target: IdentifierReference, statement: Statement): Statement? {

2
compiler/src/prog8/optimizer/StatementOptimizer.kt
View File

@ -588,6 +588,8 @@ internal class StatementOptimizer(private val program: Program) : IAstModifyingV
statements.removeAt(statements.lastIndex) statements.removeAt(statements.lastIndex)
} }
} }
// TODO remove all statements following a 'return' statement ???
} }
} }

5
compiler/src/prog8/vm/astvm/AstVm.kt
View File

@ -996,6 +996,11 @@ class AstVm(val program: Program, compilationTarget: String) {
else -> RuntimeValueNumeric(DataType.BYTE, 1) else -> RuntimeValueNumeric(DataType.BYTE, 1)
} }
} }
"exit" -> {
val rv = args.single().numericValue()
dialog.canvas.printAsciiText("\n<program ended with exit($rv)>")
throw VmTerminationException("program ended with exit($rv)")
}
else -> TODO("astvm implement builtin function $name") else -> TODO("astvm implement builtin function $name")
} }
} }

9
examples/test.p8
View File

@ -20,9 +20,9 @@ main {
sub sub2() { sub sub2() {
c64scr.print("sp2:") c64scr.print("sp2:")
print_stackpointer() print_stackpointer()
exit(65) return
sub3() sub3() ; TODO warning about unreachable code
sub3() sub3() ; TODO remove statements after a return
sub3() sub3()
sub3() sub3()
sub3() sub3()
@ -40,9 +40,6 @@ main {
} }
sub print_stackpointer() { sub print_stackpointer() {
%asm {{
tsx
}}
c64scr.print_ub(X) ; prints stack pointer c64scr.print_ub(X) ; prints stack pointer
c64.CHROUT('\n') c64.CHROUT('\n')
} }