6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2025-01-03 19:31:02 +00:00
Code Issues Projects Releases Wiki Activity

8080: tail call optimization

Browse Source
This commit is contained in:
Karol Stasiak 2019-06-24 00:47:07 +02:00
parent 869211658a
commit 4654698891
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/main/scala/millfork/assembly/z80/opt/LaterI80Optimizations.scala
View File

@ -113,8 +113,24 @@ object LaterI80Optimizations {
}, },
) )
val TailCall = new RuleBasedAssemblyOptimization("Tail call",
needsFlowInfo = FlowInfoRequirement.NoRequirement,
(Elidable & HasOpcode(CALL)) ~
(Elidable & HasOpcodeIn(ZOpcodeClasses.NoopDiscards)).* ~
(Elidable & HasOpcode(RET) & HasRegisters(NoRegisters)) ~~> { code =>
List(code.head.copy(opcode = JP))
},
(Elidable & HasOpcode(CALL)) ~
HasOpcode(LABEL).* ~
(Elidable & HasOpcodeIn(ZOpcodeClasses.NoopDiscards)).*.capture(0) ~
(Elidable & HasOpcode(RET) & HasRegisters(NoRegisters)) ~~> { (code, ctx) =>
ctx.get[List[ZLine]](0) ++ (code.head.copy(opcode = JP) :: code.tail)
},
)
val All: List[AssemblyOptimization[ZLine]] = List( val All: List[AssemblyOptimization[ZLine]] = List(
VariousSmallOptimizations, VariousSmallOptimizations,
FreeHL FreeHL,
TailCall,
) )
} }