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

fix ast source gen for romsub

Browse Source
This commit is contained in:
Irmen de Jong 2024-11-03 15:04:53 +01:00
parent 9f84aa5fb2
commit 178e60bba0
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
codeGenIntermediate/src/prog8/codegen/intermediate/IRCodeGen.kt
View File

@ -1716,7 +1716,7 @@ class IRCodeGen(
)
irBlock += IRAsmSubroutine(
child.name,
child.address,
null,
child.clobbers,
child.parameters.map { IRAsmSubroutine.IRAsmParam(it.first, it.second.type) }, // note: the name of the asmsub param is not used here anymore
child.returns.map { IRAsmSubroutine.IRAsmParam(it.first, it.second)},

8
compilerAst/src/prog8/ast/AstToSourceTextConverter.kt
View File

@ -180,6 +180,10 @@ class AstToSourceTextConverter(val output: (text: String) -> Unit, val program:
if(subroutine.inline)
output("inline ")
if(subroutine.isAsmSubroutine) {
if(subroutine.asmAddress!=null) {
output("romsub ${subroutine.asmAddress.toHex()} = ${subroutine.name} (")
}
else
output("asmsub ${subroutine.name} (")
for(param in subroutine.parameters.zip(subroutine.asmParameterRegisters)) {
val reg =
@ -227,9 +231,7 @@ class AstToSourceTextConverter(val output: (text: String) -> Unit, val program:
output("-> $rts ")
}
}
if(subroutine.asmAddress!=null)
outputln("= ${subroutine.asmAddress.toHex()}")
else {
if (subroutine.asmAddress == null) {
outputln("{ ")
scopelevel++
outputStatements(subroutine.statements.filter { it !is VarDecl || it.origin!=VarDeclOrigin.SUBROUTINEPARAM})