Commit f9f22386 authored by Simon Marlow's avatar Simon Marlow
Browse files

unpack the Label in CmmEntry

parent 1ebefd3d
......@@ -36,7 +36,7 @@ import Prelude hiding (succ)
-- CmmNode
data CmmNode e x where
CmmEntry :: Label -> CmmNode C O
CmmEntry :: {-# UNPACK #-} !Label -> CmmNode C O
CmmComment :: FastString -> CmmNode O O
......
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