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