Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-11-03 04:17:16 +00:00
Code Issues Projects Releases Wiki Activity

fix 6502 inplace pointer variable assignment

Browse Source
This commit is contained in:
Irmen de Jong
2025-08-14 20:38:18 +02:00
parent fd9bd23449
commit e800c165f9
5 changed files with 30 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/test/TestPointers.kt
View File

@@ -1390,6 +1390,7 @@ main {
}
sub test(str argument) -> str {
argument++
return "bye"
}
}"""
@@ -1397,11 +1398,21 @@ main {
val vmtest = vmprg.codegenAst!!.allBlocks().first { it.name == "main" }.children[1] as PtSub
vmtest.signature.returns.single() shouldBe DataType.pointer(BaseDataType.UBYTE)
(vmtest.signature.children.single() as PtSubroutineParameter).type shouldBe DataType.pointer(BaseDataType.UBYTE)
val vminc = vmtest.children[2] as PtAugmentedAssign
vminc.operator shouldBe "+="
vminc.target.identifier!!.name shouldBe "main.test.argument"
vminc.target.identifier!!.type shouldBe DataType.pointer(BaseDataType.UBYTE)
(vminc.value as PtNumber).number shouldBe 1.0
val c64prg = compileText(C64Target(), false, src, outputDir)!!
val c64test = c64prg.codegenAst!!.allBlocks().first { it.name == "p8b_main" }.children[1] as PtSub
c64test.signature.returns.single() shouldBe DataType.pointer(BaseDataType.UBYTE)
(c64test.signature.children.single() as PtSubroutineParameter).type shouldBe DataType.pointer(BaseDataType.UBYTE)
val c64inc = c64test.children[2] as PtAugmentedAssign
c64inc.operator shouldBe "+="
c64inc.target.identifier!!.name shouldBe "p8b_main.p8s_test.p8v_argument"
c64inc.target.identifier!!.type shouldBe DataType.pointer(BaseDataType.UBYTE)
(c64inc.value as PtNumber).number shouldBe 1.0
}
test("hoist variable decl and initializer correctly in case of pointer type variable as well") {