Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-02-17 13:31:01 +00:00
Code Issues Projects Releases Wiki Activity

fix asm bug

Browse Source
This commit is contained in:
Irmen de Jong 2020-08-21 04:10:36 +02:00
parent ef7744dbda
commit e941f6ecca
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -124,7 +124,7 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
} }
in WordDatatypes -> { in WordDatatypes -> {
when { when {
valueLv != null -> inplaceModification_word_litval_to_variable(name, operator, valueLv) valueLv != null -> inplaceModification_word_litval_to_variable(name, operator, valueLv, origAssign)
ident != null -> inplaceModification_word_variable_to_variable(name, operator, ident) ident != null -> inplaceModification_word_variable_to_variable(name, operator, ident)
// TODO more specialized code for types such as memory read etc. // TODO more specialized code for types such as memory read etc.
else -> inplaceModification_word_value_to_variable(name, operator, value) else -> inplaceModification_word_value_to_variable(name, operator, value)
@ -407,7 +407,7 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
} }
} }
private fun inplaceModification_word_litval_to_variable(name: String, operator: String, value: Double) { private fun inplaceModification_word_litval_to_variable(name: String, operator: String, value: Double, origAssign: Assignment) {
when (operator) { when (operator) {
// note: ** (power) operator requires floats. // note: ** (power) operator requires floats.
"+" -> asmgen.out(" lda $name | clc | adc #<$value | sta $name | lda $name+1 | adc #>$value | sta $name+1") "+" -> asmgen.out(" lda $name | clc | adc #<$value | sta $name | lda $name+1 | adc #>$value | sta $name+1")
@ -425,7 +425,7 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
lda math.multiply_words.result lda math.multiply_words.result
sta $name sta $name
lda math.multiply_words.result+1 lda math.multiply_words.result+1
sta $name+1,x""") sta $name+1""")
} }
"/" -> TODO("word $name /= $value")// asmgen.out(if(types==DataType.UBYTE) " jsr prog8_lib.idiv_ub" else " jsr prog8_lib.idiv_b") "/" -> TODO("word $name /= $value")// asmgen.out(if(types==DataType.UBYTE) " jsr prog8_lib.idiv_ub" else " jsr prog8_lib.idiv_b")
"%" -> { "%" -> {