Commit 545d8b91 authored by Sapphie's avatar Sapphie
Browse files

Finish AppF shrinking

parent 3c096064
......@@ -75,8 +75,11 @@ abstract class CPSOptimizer[T <: CPSTreeModule { type Name = Symbol }]
fun match {
case AtomN(n) if s.fEnv.contains(n) && s.appliedOnce(n) =>
// Inline
val fun = s.fEnv.get(n)
???
val fun = s.fEnv(n)
val newState = s.withASubst(fun.args, args)
.withCSubst(fun.retC, retC)
val newBody = shrink(fun.body, newState)
newBody
case _ => tree
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment