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

implement long comparisons > and <=

Browse Source
This commit is contained in:
Irmen de Jong
2025-10-06 23:42:40 +02:00
parent f5f5aef722
commit f7639cb78f
3 changed files with 10 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
codeGenCpu6502/src/prog8/codegen/cpu6502/IfElseAsmGen.kt
View File

@@ -1474,8 +1474,14 @@ _jump jmp (${target.asmLabel})
jump: PtJump?,
stmt: PtIfElse
) {
if(operator=="<" || operator ==">=") {
assignmentAsmGen.assignExpressionToRegister(right, RegisterOrPair.R2R3_32, left.type.isSigned)
assignmentAsmGen.assignExpressionToRegister(left, RegisterOrPair.R0R1_32, left.type.isSigned)
} else {
// flip operands
assignmentAsmGen.assignExpressionToRegister(left, RegisterOrPair.R2R3_32, left.type.isSigned)
assignmentAsmGen.assignExpressionToRegister(right, RegisterOrPair.R0R1_32, left.type.isSigned)
}
asmgen.out("""
sec
lda cx16.r0
@@ -1487,19 +1493,13 @@ _jump jmp (${target.asmLabel})
lda cx16.r0+3
sbc cx16.r2+3""")
when(operator) {
"<" -> {
"<", ">" -> {
if (jump != null)
translateJumpElseBodies("bmi", "bpl", jump, stmt.elseScope)
else
translateIfElseBodies("bpl", stmt)
}
">" -> {
TODO("long > value ${left.position}")
}
"<=" -> {
TODO("long <= value ${left.position}")
}
">=" -> {
">=", "<=" -> {
if (jump != null)
translateJumpElseBodies("bpl", "bmi", jump, stmt.elseScope)
else

5
docs/source/todo.rst
View File

@@ -1,11 +1,6 @@
TODO
====
LONG TYPE
---------
- implement long > and <= in compareLongValues()
STRUCTS and TYPED POINTERS
--------------------------

4
examples/test.p8
View File

@@ -40,7 +40,6 @@ main {
/*
txt.print("<=\n")
lv1 = $77777777
lv2 = $55555555
@@ -71,10 +70,8 @@ main {
else
txt.print("error3 ")
txt.nl()
*/
/*
txt.print(">\n")
lv1 = $77777777
lv2 = $55555555
@@ -105,7 +102,6 @@ main {
else
txt.print("ok3 ")
txt.nl()
*/
txt.print(">=\n")