unpack the Label in CmmEntry
authorSimon Marlow <marlowsd@gmail.com>
Wed, 18 Jan 2012 11:17:50 +0000 (11:17 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 18 Jan 2012 11:17:50 +0000 (11:17 +0000)
compiler/cmm/CmmNode.hs

index 273142e..be3b434 100644 (file)
@@ -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