fix certain corruption of A register argument on asm sub call

2024-11-27 03:50:27 +00:00 · 2020-08-16 19:15:44 +02:00 · 2020-08-16 19:15:44 +02:00 · f14dda4eca
commit f14dda4eca
parent bd7f75c130
1 changed files with 2 additions and 1 deletions
--- a/compiler/src/prog8/compiler/target/c64/codegen/FunctionCallAsmGen.kt
+++ b/compiler/src/prog8/compiler/target/c64/codegen/FunctionCallAsmGen.kt
@ -182,12 +182,13 @@ internal class FunctionCallAsmGen(private val program: Program, private val asmg
                        is IdentifierReference -> {
                            val sourceName = asmgen.asmIdentifierName(value)
                            asmgen.out("""
+            pha
            lda  $sourceName
            beq  +
            sec  
            bcs  ++
 +           clc
-+
+           pla
 """)
                        }
                        else -> {