Commit 92317d94 authored by Sapphie's avatar Sapphie
Browse files

Implement Halt

parent bb672d39
...@@ -118,6 +118,9 @@ abstract class CPSOptimizer[T <: CPSTreeModule { type Name = Symbol }] ...@@ -118,6 +118,9 @@ abstract class CPSOptimizer[T <: CPSTreeModule { type Name = Symbol }]
LetC(nonInlinedConts, newBody) LetC(nonInlinedConts, newBody)
} }
case Halt(a) =>
Halt(s.aSubst.getOrElse(a, a))
} }
// (Non-shrinking) inlining // (Non-shrinking) inlining
......
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