Commit 7a4643ee authored by Simon Marlow's avatar Simon Marlow
Browse files

don't inline foldExpDeep

parent 79c8c5cb
......@@ -420,7 +420,6 @@ foldExp f (CmmSwitch e _) z = f e z
foldExp f (CmmCall {cml_target=tgt}) z = f tgt z
foldExp f (CmmForeignCall {tgt=tgt, args=args}) z = foldr f (foldExpForeignTarget f tgt z) args
{-# INLINE foldExpDeep #-}
foldExpDeep :: (CmmExpr -> z -> z) -> CmmNode e x -> z -> z
foldExpDeep f = foldExp go
where -- go :: CmmExpr -> z -> z
......
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