diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-08-24 12:39:46 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-25 11:12:34 +0100 |
| commit | 621ea4126b1948fe90915940b364f1efe41cad44 (patch) | |
| tree | 1fc24afefddc5ceb24362aca85956681be691887 /compiler/codeGen/StgCmmEnv.hs | |
| parent | 4ebf65abcc94647be48216b8ea616c5a8d0b1fce (diff) | |
| download | haskell-621ea4126b1948fe90915940b364f1efe41cad44.tar.gz | |
get rid of the cg_rep field of CgIdInfo, which wasn't used anywhere
Diffstat (limited to 'compiler/codeGen/StgCmmEnv.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index 25bbe8f63f..587601f226 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -70,13 +70,13 @@ nonVoidIds ids = [NonVoid id | id <- ids, not (isVoidRep (idPrimRep id))] mkCgIdInfo :: Id -> LambdaFormInfo -> CmmExpr -> CgIdInfo mkCgIdInfo id lf expr - = CgIdInfo { cg_id = id, cg_rep = idPrimRep id, cg_lf = lf + = CgIdInfo { cg_id = id, cg_lf = lf , cg_loc = CmmLoc expr, cg_tag = lfDynTag lf } litIdInfo :: Id -> LambdaFormInfo -> CmmLit -> CgIdInfo litIdInfo id lf lit - = CgIdInfo { cg_id = id, cg_rep = idPrimRep id, cg_lf = lf + = CgIdInfo { cg_id = id, cg_lf = lf , cg_loc = CmmLoc (addDynTag (CmmLit lit) tag) , cg_tag = tag } where @@ -84,7 +84,7 @@ litIdInfo id lf lit lneIdInfo :: Id -> [LocalReg] -> CgIdInfo lneIdInfo id regs - = CgIdInfo { cg_id = id, cg_rep = idPrimRep id, cg_lf = lf + = CgIdInfo { cg_id = id, cg_lf = lf , cg_loc = LneLoc blk_id regs , cg_tag = lfDynTag lf } where |