Skip to content
Snippets Groups Projects
Commit 92317d94 authored by Sapphie's avatar Sapphie
Browse files

Implement Halt

parent bb672d39
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/src/l3/CPSOptimizer.scala
+ 3
− 0
View file @ 92317d94
...@@ -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
......
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