Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-10-18 16:24:26 +00:00
Code Issues Projects Releases Wiki Activity

fix bug in uword > comparison

Browse Source
This commit is contained in:
Irmen de Jong 2021-03-18 02:21:21 +01:00
parent b30b8b7368
commit 6780d4f562
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/src/prog8/compiler/target/cpu6502/codegen/ExpressionsAsmGen.kt
View File

@ -622,16 +622,15 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
private fun translateUwordGreaterJump(left: Expression, right: Expression, leftConstVal: NumericLiteralValue?, rightConstVal: NumericLiteralValue?, jumpIfFalseLabel: String) { private fun translateUwordGreaterJump(left: Expression, right: Expression, leftConstVal: NumericLiteralValue?, rightConstVal: NumericLiteralValue?, jumpIfFalseLabel: String) {
// TODO verify correctness uword >
fun code(msbCpyOperand: String, lsbCmpOperand: String) { fun code(msbCpyOperand: String, lsbCmpOperand: String) {
asmgen.out(""" asmgen.out("""
cpy $msbCpyOperand cpy $msbCpyOperand
bcs $jumpIfFalseLabel bcc $jumpIfFalseLabel
bne + bne +
cmp $lsbCmpOperand cmp $lsbCmpOperand
bcs $jumpIfFalseLabel bcc $jumpIfFalseLabel
+""") + beq $jumpIfFalseLabel
""")
} }
if(rightConstVal!=null) { if(rightConstVal!=null) {
@ -662,8 +661,8 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
return code("$varname+1", varname) return code("$varname+1", varname)
} }
asmgen.assignExpressionToVariable(left, "P8ZP_SCRATCH_W2", DataType.UWORD, null) asmgen.assignExpressionToVariable(right, "P8ZP_SCRATCH_W2", DataType.UWORD, null)
asmgen.assignExpressionToRegister(right, RegisterOrPair.AY) asmgen.assignExpressionToRegister(left, RegisterOrPair.AY)
return code("P8ZP_SCRATCH_W2+1", "P8ZP_SCRATCH_W2") return code("P8ZP_SCRATCH_W2+1", "P8ZP_SCRATCH_W2")
} }