diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 16:38:27 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 16:38:27 +0100 |
| commit | 7937a9212159012606939fcbc6b38d9fe5db5584 (patch) | |
| tree | 1452d3b0b994ab4b381f4aa32ae59a23ac2e2f5e /compiler/codeGen/StgCmmHeap.hs | |
| parent | 03f78f0686f048e75d671f2797c8684b71655c49 (diff) | |
| download | haskell-7937a9212159012606939fcbc6b38d9fe5db5584.tar.gz | |
Remove some unnecessary platform arguments
Diffstat (limited to 'compiler/codeGen/StgCmmHeap.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmHeap.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/compiler/codeGen/StgCmmHeap.hs b/compiler/codeGen/StgCmmHeap.hs index 7b22c5726a..25161722f7 100644 --- a/compiler/codeGen/StgCmmHeap.hs +++ b/compiler/codeGen/StgCmmHeap.hs @@ -43,7 +43,6 @@ import IdInfo( CafInfo(..), mayHaveCafRefs ) import Module import FastString( mkFastString, fsLit ) import Constants -import DynFlags import Util ----------------------------------------------------------- @@ -329,11 +328,7 @@ entryHeapCheck :: ClosureInfo -> FCode () entryHeapCheck cl_info offset nodeSet arity args code - = do dflags <- getDynFlags - - let platform = targetPlatform dflags - - is_thunk = arity == 0 + = do let is_thunk = arity == 0 is_fastf = case closureFunInfo cl_info of Just (_, ArgGen _) -> False _otherwise -> True @@ -342,7 +337,7 @@ entryHeapCheck cl_info offset nodeSet arity args code setN = case nodeSet of Just n -> mkAssign nodeReg (CmmReg $ CmmLocal n) Nothing -> mkAssign nodeReg $ - CmmLit (CmmLabel $ staticClosureLabel platform cl_info) + CmmLit (CmmLabel $ staticClosureLabel cl_info) {- Thunks: Set R1 = node, jump GCEnter1 Function (fast): Set R1 = node, jump GCFun |