Commit a3c13fdb authored by Ian Lynagh's avatar Ian Lynagh

Remove some legacy code

__GLASGOW_HASKELL__ >= 612 is now always true
parent e732d9d2
......@@ -282,19 +282,8 @@ addProcPointProtocols callPPs procPoints g =
let block = mapLookup id (toBlockMap g) `orElse`
panic "branch out of graph"
in case blockToNodeList block of
-- MS: There is an ugly bug in ghc-6.10, which rejects following valid code.
-- After trying several tricks, the NOINLINE on getItOut worked. Uffff.
#if __GLASGOW_HASKELL__ >= 612
(_, [], JustC (CmmBranch pee)) | setMember pee procPoints -> Just pee
_ -> Nothing
#else
(_, [], exit) | CmmBranch pee <- getItOut exit
, setMember pee procPoints -> Just pee
_ -> Nothing
where {-# NOINLINE getItOut #-}
getItOut :: MaybeC C a -> a
getItOut (JustC a) = a
#endif
-- | For now, following a suggestion by Ben Lippmeier, we pass all
-- live variables as arguments, hoping that a clever register
......
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