tweag/asterius
1
1
Fork 0
mirror of https://github.com/tweag/asterius.git synced 2024-09-19 21:07:55 +03:00
Code Issues Projects Releases Wiki Activity

Previous TTG approach of IR is a failure. Prep for a lower tech version that works

Browse Source
This commit is contained in:
Shao Cheng 2018-04-03 00:40:44 +08:00
parent b0f11a01cd
commit ce2d8254c2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
asterius/src/Asterius/IR.hs
View File

@ -250,9 +250,11 @@ marshalCmmBranch mod_sym func_sym exit_node =
, trueDest = encodeLabel mod_sym func_sym cml_true
, falseDest = encodeLabel mod_sym func_sym cml_false
}
GHC.CmmSwitch _ _ ->
GHC.CmmSwitch _ _ -> do
MarshalContext {..} <- ask
pure
SwitchBranch {switch = ExpressionStub, defDest = undefined, dests = []}
SwitchBranch
{switch = ExpressionStub, defDest = unreachableBlock, dests = []}
GHC.CmmCall {..} -> pure CallBranch {callee = ExpressionStub}
GHC.CmmForeignCall {} -> pure ForeignCallStub