Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : newcg
http://hackage.haskell.org/trac/ghc/changeset/f9f223869f632e1ca3f080f2e37910835f47630d >--------------------------------------------------------------- commit f9f223869f632e1ca3f080f2e37910835f47630d Author: Simon Marlow <[email protected]> Date: Wed Jan 18 11:17:50 2012 +0000 unpack the Label in CmmEntry >--------------------------------------------------------------- compiler/cmm/CmmNode.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/cmm/CmmNode.hs b/compiler/cmm/CmmNode.hs index 273142e..be3b434 100644 --- a/compiler/cmm/CmmNode.hs +++ b/compiler/cmm/CmmNode.hs @@ -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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
