Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-09-16 16:55:50 +00:00
Code Issues Projects Releases Wiki Activity

types

Browse Source
This commit is contained in:
Irmen de Jong 2018-10-04 02:30:23 +02:00
parent bf75e7c00b
commit 7d77504335
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/test/StackVMOpcodeTests.kt
View File

@ -629,18 +629,14 @@ class TestStackVmOpcodes {
@Test @Test
fun testLsb() { fun testLsb() {
val ins = mutableListOf( val ins = mutableListOf(
Instruction(Opcode.PUSH_F, Value(DataType.FLOAT, 1.23)),
Instruction(Opcode.PUSH, Value(DataType.BYTE, 0x45)), Instruction(Opcode.PUSH, Value(DataType.BYTE, 0x45)),
Instruction(Opcode.PUSH_W, Value(DataType.WORD, 0xea31)), Instruction(Opcode.PUSH_W, Value(DataType.WORD, 0xea31)),
Instruction(Opcode.LSB), Instruction(Opcode.LSB),
Instruction(Opcode.LSB),
Instruction(Opcode.LSB) Instruction(Opcode.LSB)
) )
vm.load(makeProg(ins), null) vm.load(makeProg(ins), null)
vm.step(4) vm.step(3)
assertEquals(Value(DataType.BYTE, 0x31), vm.evalstack.pop()) assertEquals(Value(DataType.BYTE, 0x31), vm.evalstack.pop())
vm.step(1)
assertEquals(Value(DataType.BYTE, 0x45), vm.evalstack.pop())
assertFailsWith<VmExecutionException> { assertFailsWith<VmExecutionException> {
vm.step(1) vm.step(1)
} }
@ -649,18 +645,14 @@ class TestStackVmOpcodes {
@Test @Test
fun testMsb() { fun testMsb() {
val ins = mutableListOf( val ins = mutableListOf(
Instruction(Opcode.PUSH_F, Value(DataType.FLOAT, 1.23)),
Instruction(Opcode.PUSH, Value(DataType.BYTE, 0x45)), Instruction(Opcode.PUSH, Value(DataType.BYTE, 0x45)),
Instruction(Opcode.PUSH_W, Value(DataType.WORD, 0xea31)), Instruction(Opcode.PUSH_W, Value(DataType.WORD, 0xea31)),
Instruction(Opcode.MSB), Instruction(Opcode.MSB),
Instruction(Opcode.MSB),
Instruction(Opcode.MSB) Instruction(Opcode.MSB)
) )
vm.load(makeProg(ins), null) vm.load(makeProg(ins), null)
vm.step(4) vm.step(3)
assertEquals(Value(DataType.BYTE, 0xea), vm.evalstack.pop()) assertEquals(Value(DataType.BYTE, 0xea), vm.evalstack.pop())
vm.step(1)
assertEquals(Value(DataType.BYTE, 0), vm.evalstack.pop())
assertFailsWith<VmExecutionException> { assertFailsWith<VmExecutionException> {
vm.step(1) vm.step(1)
} }