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 }] ...@@ -75,8 +75,11 @@ abstract class CPSOptimizer[T <: CPSTreeModule { type Name = Symbol }]
fun match { fun match {
case AtomN(n) if s.fEnv.contains(n) && s.appliedOnce(n) => case AtomN(n) if s.fEnv.contains(n) && s.appliedOnce(n) =>
// Inline // 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 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