diff options
| author | Boris Sukholitko <boriss@gmail.com> | 2013-03-09 11:46:52 +0200 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-03-09 12:29:23 +0000 |
| commit | a81317c40cb0fb1be104f3e62bd06beafaf2b900 (patch) | |
| tree | 9452f8076e968c3858ed6a853976423bcb79ffd3 /compiler/codeGen | |
| parent | 422eefc2efbe32838860a2a2681fa052f1337fbc (diff) | |
| download | haskell-a81317c40cb0fb1be104f3e62bd06beafaf2b900.tar.gz | |
Remove cg_tag from CgIdInfo
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 9 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmMonad.hs | 1 |
2 files changed, 3 insertions, 7 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index 1d6f3864ca..4b7272a797 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -71,22 +71,19 @@ nonVoidIds ids = [NonVoid id | id <- ids, not (isVoidRep (idPrimRep id))] mkCgIdInfo :: DynFlags -> Id -> LambdaFormInfo -> CmmExpr -> CgIdInfo mkCgIdInfo dflags id lf expr = CgIdInfo { cg_id = id, cg_lf = lf - , cg_loc = CmmLoc expr, - cg_tag = lfDynTag dflags lf } + , cg_loc = CmmLoc expr } litIdInfo :: DynFlags -> Id -> LambdaFormInfo -> CmmLit -> CgIdInfo litIdInfo dflags id lf lit = CgIdInfo { cg_id = id, cg_lf = lf - , cg_loc = CmmLoc (addDynTag dflags (CmmLit lit) tag) - , cg_tag = tag } + , cg_loc = CmmLoc (addDynTag dflags (CmmLit lit) tag) } where tag = lfDynTag dflags lf lneIdInfo :: DynFlags -> Id -> [NonVoid Id] -> CgIdInfo lneIdInfo dflags id regs = CgIdInfo { cg_id = id, cg_lf = lf - , cg_loc = LneLoc blk_id (map (idToReg dflags) regs) - , cg_tag = lfDynTag dflags lf } + , cg_loc = LneLoc blk_id (map (idToReg dflags) regs) } where lf = mkLFLetNoEscape blk_id = mkBlockId (idUnique id) diff --git a/compiler/codeGen/StgCmmMonad.hs b/compiler/codeGen/StgCmmMonad.hs index def0ffefc5..dd7e95078f 100644 --- a/compiler/codeGen/StgCmmMonad.hs +++ b/compiler/codeGen/StgCmmMonad.hs @@ -187,7 +187,6 @@ data CgIdInfo -- virtue of being externalised, for splittable C , cg_lf :: LambdaFormInfo , cg_loc :: CgLoc -- CmmExpr for the *tagged* value - , cg_tag :: {-# UNPACK #-} !DynTag -- Cache for (lfDynTag cg_lf) } data CgLoc |