X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmm.hs;h=0d1876e0e61068db72f6c8c766dc48b1d08c4a72;hb=d5e821c43df34fa228727e7f4e9453d0fde39fb6;hp=00d93b01f1e3e81429e458b345ed24e3fcd790d4;hpb=98037604b0b148ce26ddc07a6fc6f15b4b386224;p=ghc-hetmet.git diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs index 00d93b0..0d1876e 100644 --- a/compiler/cmm/Cmm.hs +++ b/compiler/cmm/Cmm.hs @@ -17,7 +17,7 @@ module Cmm ( CmmReg(..), cmmRegRep, CmmLit(..), cmmLitRep, LocalReg(..), localRegRep, - BlockId(..), + BlockId(..), BlockEnv, GlobalReg(..), globalRegRep, node, nodeReg, spReg, hpReg, spLimReg @@ -29,6 +29,7 @@ import MachOp import CLabel import ForeignCall import Unique +import UniqFM import FastString import Data.Word @@ -275,6 +276,8 @@ newtype BlockId = BlockId Unique instance Uniquable BlockId where getUnique (BlockId u) = u +type BlockEnv a = UniqFM {- BlockId -} a + ----------------------------------------------------------------------------- -- Static Data -----------------------------------------------------------------------------