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

fixed missing shifts codegen

Browse Source
This commit is contained in:
Irmen de Jong 2020-07-02 19:18:47 +02:00
parent 164ac56db1
commit 7d8496c874
2 changed files with 29 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
compiler/src/prog8/compiler/target/c64/codegen/ExpressionsAsmGen.kt
View File

@ -240,16 +240,28 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
} }
} }
DataType.UWORD -> { DataType.UWORD -> {
if(amount<=2) if (amount<=2) repeat(amount) { asmgen.out(" lsr $ESTACK_HI_PLUS1_HEX,x | ror $ESTACK_LO_PLUS1_HEX,x") }
repeat(amount) { asmgen.out(" lsr $ESTACK_HI_PLUS1_HEX,x | ror $ESTACK_LO_PLUS1_HEX,x") } else {
else var left = amount
asmgen.out(" jsr math.shift_right_uw_$amount") // 3-7 (8+ is done via other optimizations) while(left>=7) {
asmgen.out(" jsr math.shift_right_uw_7")
left -= 7
}
if(left>0)
asmgen.out(" jsr math.shift_right_uw_$left")
}
} }
DataType.WORD -> { DataType.WORD -> {
if(amount<=2) if (amount<=2) repeat(amount) { asmgen.out(" lda $ESTACK_HI_PLUS1_HEX,x | asl a | ror $ESTACK_HI_PLUS1_HEX,x | ror $ESTACK_LO_PLUS1_HEX,x") }
repeat(amount) { asmgen.out(" lda $ESTACK_HI_PLUS1_HEX,x | asl a | ror $ESTACK_HI_PLUS1_HEX,x | ror $ESTACK_LO_PLUS1_HEX,x") } else {
else var left=amount
asmgen.out(" jsr math.shift_right_w_$amount") // 3-7 (8+ is done via other optimizations) while(left>=7) {
asmgen.out(" jsr math.shift_right_w_7")
left -= 7
}
if(left>0)
asmgen.out(" jsr math.shift_right_w_$left")
}
} }
else -> throw AssemblyError("weird type") else -> throw AssemblyError("weird type")
} }
@ -269,10 +281,15 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
} }
} }
else { else {
if(amount<=2) { if (amount<=2) repeat(amount) { asmgen.out(" asl $ESTACK_LO_PLUS1_HEX,x | rol $ESTACK_HI_PLUS1_HEX,x") }
repeat(amount) { asmgen.out(" asl $ESTACK_LO_PLUS1_HEX,x | rol $ESTACK_HI_PLUS1_HEX,x") } else {
} else { var left=amount
asmgen.out(" jsr math.shift_left_w_$amount") // 3-7 (8+ is done via other optimizations) while(left>=7) {
asmgen.out(" jsr math.shift_left_w_7")
left -= 7
}
if(left > 0)
asmgen.out(" jsr math.shift_left_w_$left")
} }
} }
return return

2
examples/cube3d-sprites.p8
View File

@ -1,8 +1,6 @@
%import c64lib %import c64lib
%import c64utils %import c64utils
; TODO fix compiler errors when compiling without optimizations
spritedata $2000 { spritedata $2000 {
; this memory block contains the sprite data ; this memory block contains the sprite data