diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-03-09 16:33:32 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-03-09 16:33:32 +0000 |
| commit | 24e81639ceb8666cccd872536ed38860d12cb0c3 (patch) | |
| tree | 259b55348fd03d2708f56224890d1b1ca7f0c4b0 /compiler/codeGen | |
| parent | ca88359191fe14e5b36d41b111f27df19d843a6c (diff) | |
| download | haskell-24e81639ceb8666cccd872536ed38860d12cb0c3.tar.gz | |
Remove unnecessary DynFlags arg to mkCgIdInfo
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index 4b7272a797..42e4da0e1f 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -68,8 +68,8 @@ nonVoidIds ids = [NonVoid id | id <- ids, not (isVoidRep (idPrimRep id))] -- Manipulating CgIdInfo ------------------------------------- -mkCgIdInfo :: DynFlags -> Id -> LambdaFormInfo -> CmmExpr -> CgIdInfo -mkCgIdInfo dflags id lf expr +mkCgIdInfo :: Id -> LambdaFormInfo -> CmmExpr -> CgIdInfo +mkCgIdInfo id lf expr = CgIdInfo { cg_id = id, cg_lf = lf , cg_loc = CmmLoc expr } @@ -93,7 +93,7 @@ rhsIdInfo :: Id -> LambdaFormInfo -> FCode (CgIdInfo, LocalReg) rhsIdInfo id lf_info = do dflags <- getDynFlags reg <- newTemp (gcWord dflags) - return (mkCgIdInfo dflags id lf_info (CmmReg (CmmLocal reg)), reg) + return (mkCgIdInfo id lf_info (CmmReg (CmmLocal reg)), reg) mkRhsInit :: DynFlags -> LocalReg -> LambdaFormInfo -> CmmExpr -> CmmAGraph mkRhsInit dflags reg lf_info expr @@ -206,7 +206,7 @@ bindToReg :: NonVoid Id -> LambdaFormInfo -> FCode LocalReg bindToReg nvid@(NonVoid id) lf_info = do dflags <- getDynFlags let reg = idToReg dflags nvid - addBindC id (mkCgIdInfo dflags id lf_info (CmmReg (CmmLocal reg))) + addBindC id (mkCgIdInfo id lf_info (CmmReg (CmmLocal reg))) return reg rebindToReg :: NonVoid Id -> FCode LocalReg |