Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-20 10:29:21 +00:00
Code Issues Projects Releases Wiki Activity

fixed estack X corruption in float augmented assignments

Browse Source
This commit is contained in:
Irmen de Jong 2020-09-13 19:44:03 +02:00
parent 97b9c8f320
commit d5e5485d2e
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/src/prog8/compiler/target/c64/codegen/assignment/AugmentableAssignmentAsmGen.kt
View File

@ -1122,11 +1122,11 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
// because the value is evaluated onto the eval stack (=slow).
println("warning: slow stack evaluation used (2): $name $operator= ${value::class.simpleName} at ${value.position}") // TODO
asmgen.translateExpression(value)
asmgen.out(" jsr c64flt.pop_float_fac1")
asmgen.saveRegister(CpuRegister.X)
when (operator) {
"**" -> {
asmgen.out("""
jsr c64flt.pop_float_fac1
lda #<$name
ldy #>$name
jsr c64flt.CONUPK
@ -1135,7 +1135,6 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
}
"+" -> {
asmgen.out("""
jsr c64flt.pop_float_fac1
lda #<$name
ldy #>$name
jsr c64flt.FADD
@ -1143,7 +1142,6 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
}
"-" -> {
asmgen.out("""
jsr c64flt.pop_float_fac1
lda #<$name
ldy #>$name
jsr c64flt.FSUB
@ -1151,7 +1149,6 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
}
"*" -> {
asmgen.out("""
jsr c64flt.pop_float_fac1
lda #<$name
ldy #>$name
jsr c64flt.FMULT
@ -1159,7 +1156,6 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
}
"/" -> {
asmgen.out("""
jsr c64flt.pop_float_fac1
lda #<$name
ldy #>$name
jsr c64flt.FDIV
@ -1167,7 +1163,6 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
}
else -> throw AssemblyError("invalid operator for in-place float modification $operator")
}
// store Fac1 back into memory
asmgen.out("""
ldx #<$name
ldy #>$name

3
examples/turtle-gfx.p8
View File

@ -3,9 +3,6 @@
main {
; TODO this program gets corrupted graphics and crashes near the end
sub start() {
graphics.enable_bitmap_mode()
turtle.init()