6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2025-01-06 09:33:22 +00:00
Code Issues Projects Releases Wiki Activity

Z80: Faster +=2 and similar

Browse Source
This commit is contained in:
Karol Stasiak 2018-07-17 13:07:33 +02:00
parent 5f14484503
commit 190b398711
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/main/scala/millfork/compiler/z80/ZBuiltIns.scala
View File

@ -272,10 +272,22 @@ object ZBuiltIns {
ZLine.ld8(lv, ZRegister.A))
case ADD if !decimal =>
constantRight match {
// n × INC (HL) = 11n cycles, n bytes
// n × INC (IX,d) = 23n cycles, 2n bytes
// LD A,n ; ADD (HL) ; LD (HL),A = 21 cycles, 4 bytes
// LD A,n ; ADD (IX,d) ; LD (IX,d),A = 45 cycles, 6 bytes
case Some(NumericConstant(1, _)) =>
calculateAddress :+ ZLine.register(INC, lv)
case Some(NumericConstant(2, _)) =>
calculateAddress :+ ZLine.register(INC, lv) :+ ZLine.register(INC, lv)
case Some(NumericConstant(3, _)) if ctx.options.flag(CompilationFlag.OptimizeForSpeed) =>
calculateAddress ++ List(ZLine.register(INC, lv), ZLine.register(INC, lv), ZLine.register(INC, lv))
case Some(NumericConstant(0xff | -1, _)) =>
calculateAddress :+ ZLine.register(DEC, lv)
case Some(NumericConstant(0xfe | -2, _)) =>
calculateAddress :+ ZLine.register(DEC, lv) :+ ZLine.register(DEC, lv)
case Some(NumericConstant(0xfd | -3, _)) if ctx.options.flag(CompilationFlag.OptimizeForSpeed) =>
calculateAddress ++ List(ZLine.register(DEC, lv), ZLine.register(DEC, lv), ZLine.register(DEC, lv))
case _ =>
setup ++ List(
ZLine.register(ADD, lv),
@ -292,8 +304,16 @@ object ZBuiltIns {
constantRight match {
case Some(NumericConstant(1, _)) =>
calculateAddress :+ ZLine.register(DEC, lv)
case Some(NumericConstant(2, _)) =>
calculateAddress :+ ZLine.register(DEC, lv) :+ ZLine.register(INC, lv)
case Some(NumericConstant(3, _)) if ctx.options.flag(CompilationFlag.OptimizeForSpeed) =>
calculateAddress ++ List(ZLine.register(DEC, lv), ZLine.register(INC, lv), ZLine.register(INC, lv))
case Some(NumericConstant(0xff | -1, _)) =>
calculateAddress :+ ZLine.register(INC, lv)
case Some(NumericConstant(0xfe | -2, _)) =>
calculateAddress :+ ZLine.register(INC, lv) :+ ZLine.register(INC, lv)
case Some(NumericConstant(0xfd | -3, _)) if ctx.options.flag(CompilationFlag.OptimizeForSpeed) =>
calculateAddress ++ List(ZLine.register(INC, lv), ZLine.register(INC, lv), ZLine.register(INC, lv))
case _ =>
if (ctx.options.flag(CompilationFlag.EmitExtended80Opcodes)) {
setup ++ List(