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

refactor byte '==', '!=', '<' and '>' codegen 2

Browse Source
This commit is contained in:
Irmen de Jong 2021-03-15 23:08:30 +01:00
parent 38e40084f1
commit b630fae580
1 changed files with 22 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -374,24 +374,20 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
return
} else {
if (left is IdentifierReference) {
val name = asmgen.asmVariableName(left)
if(rightConstVal.number.toInt()!=0)
asmgen.out("""
lda $name
cmp #${rightConstVal.number}
bcs $jumpIfFalseLabel""")
return if(rightConstVal.number.toInt()!=0) {
asmgen.assignExpressionToRegister(left, RegisterOrPair.A)
asmgen.out(" cmp #${rightConstVal.number} | bcs $jumpIfFalseLabel")
}
else
asmgen.jmp(jumpIfFalseLabel)
return
}
else if (left is DirectMemoryRead) {
if(rightConstVal.number.toInt()!=0) {
return if(rightConstVal.number.toInt()!=0) {
translateDirectMemReadExpression(left, false)
asmgen.out(" cmp #${rightConstVal.number} | bcs $jumpIfFalseLabel")
}
else
asmgen.jmp(jumpIfFalseLabel)
return
}
}
}
@ -528,24 +524,21 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
return
} else {
if (left is IdentifierReference) {
val name = asmgen.asmVariableName(left)
if(rightConstVal.number.toInt()!=0)
asmgen.assignExpressionToRegister(left, RegisterOrPair.A)
return if(rightConstVal.number.toInt()!=0)
asmgen.out("""
lda $name
cmp #${rightConstVal.number}
bcc $jumpIfFalseLabel
beq $jumpIfFalseLabel""")
else
asmgen.out(" lda $name | beq $jumpIfFalseLabel")
return
asmgen.out(" beq $jumpIfFalseLabel")
}
else if (left is DirectMemoryRead) {
translateDirectMemReadExpression(left, false)
if(rightConstVal.number.toInt()!=0)
return if(rightConstVal.number.toInt()!=0)
asmgen.out(" cmp #${rightConstVal.number} | bcc $jumpIfFalseLabel | beq $jumpIfFalseLabel")
else
asmgen.out(" beq $jumpIfFalseLabel")
return
}
}
}
@ -677,23 +670,19 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
return
} else {
if (left is IdentifierReference) {
val name = asmgen.asmVariableName(left)
if(rightConstVal.number.toInt()!=0)
asmgen.assignExpressionToRegister(left, RegisterOrPair.A)
return if(rightConstVal.number.toInt()!=0)
asmgen.out("""
lda $name
cmp #${rightConstVal.number}
beq +
bcs $jumpIfFalseLabel
+""")
else
asmgen.out("""
lda $name
bne $jumpIfFalseLabel""")
return
asmgen.out(" bne $jumpIfFalseLabel")
}
else if (left is DirectMemoryRead) {
translateDirectMemReadExpression(left, false)
if(rightConstVal.number.toInt()!=0)
return if(rightConstVal.number.toInt()!=0)
asmgen.out("""
cmp #${rightConstVal.number}
beq +
@ -701,7 +690,6 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
+""")
else
asmgen.out(" bne $jumpIfFalseLabel")
return
}
}
}
@ -835,18 +823,17 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
return
} else {
if (left is IdentifierReference) {
val name = asmgen.asmVariableName(left)
if(rightConstVal.number.toInt()!=0)
asmgen.out("""
lda $name
cmp #${rightConstVal.number}
bcc $jumpIfFalseLabel""")
if(rightConstVal.number.toInt()!=0) {
asmgen.assignExpressionToRegister(left, RegisterOrPair.A)
asmgen.out(" cmp #${rightConstVal.number} | bcc $jumpIfFalseLabel")
}
return
}
else if (left is DirectMemoryRead) {
translateDirectMemReadExpression(left, false)
if(rightConstVal.number.toInt()!=0)
if(rightConstVal.number.toInt()!=0) {
translateDirectMemReadExpression(left, false)
asmgen.out(" cmp #${rightConstVal.number} | bcc $jumpIfFalseLabel")
}
return
}
}
@ -976,7 +963,7 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
else
asmgen.out(" bne $jumpIfFalseLabel")
}
if (left is DirectMemoryRead) {
else if (left is DirectMemoryRead) {
translateDirectMemReadExpression(left, false)
return if(rightConstVal.number.toInt()!=0)
code("#${rightConstVal.number}")
@ -1013,7 +1000,7 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
else
asmgen.out(" beq $jumpIfFalseLabel")
}
if (left is DirectMemoryRead) {
else if (left is DirectMemoryRead) {
translateDirectMemReadExpression(left, false)
return if(rightConstVal.number.toInt()!=0)
code("#${rightConstVal.number}")