Commit bb672d39 authored by Sapphie's avatar Sapphie
Browse files

fixup! Implement LetP and LetC

parent 7d5658e7
......@@ -81,7 +81,7 @@ abstract class CPSOptimizer[T <: CPSTreeModule { type Name = Symbol }]
if (nonInlined.isEmpty) {
newBody
} else {
LetF(restFuns, newBody)
LetF(nonInlined, newBody)
}
case LetP(name, prim, args, body) =>
......@@ -112,10 +112,10 @@ abstract class CPSOptimizer[T <: CPSTreeModule { type Name = Symbol }]
}
val newBody = shrink(body, s.withCnts(undeadShrunkConts))
if (conts.isEmpty) {
if (nonInlinedConts.isEmpty) {
newBody
} else {
LetC(undeadShrunkConts, newBody)
LetC(nonInlinedConts, newBody)
}
}
......
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