diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-12 12:37:01 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-12 12:37:01 +0100 |
| commit | 44b5f471a314d964948c38684ce74b7a87df4ed8 (patch) | |
| tree | 075f88991983d976ad13714da61b9773a6ca0a02 /compiler/codeGen/StgCmmForeign.hs | |
| parent | f611396a581e733c41cee41750c95675bdb64961 (diff) | |
| download | haskell-44b5f471a314d964948c38684ce74b7a87df4ed8.tar.gz | |
Pass DynFlags down to gcWord
Diffstat (limited to 'compiler/codeGen/StgCmmForeign.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs index eb5850f10f..0a6b6b9e5a 100644 --- a/compiler/codeGen/StgCmmForeign.hs +++ b/compiler/codeGen/StgCmmForeign.hs @@ -292,7 +292,7 @@ emitSaveThreadState bid = do -- CurrentTSO->stackobj->sp = Sp; emitStore (cmmOffset dflags (CmmLoad (cmmOffset dflags stgCurrentTSO (tso_stackobj dflags)) (bWord dflags)) (stack_SP dflags)) - (CmmStackSlot (Young bid) (widthInBytes (typeWidth gcWord))) + (CmmStackSlot (Young bid) (widthInBytes (typeWidth (gcWord dflags)))) emit $ closeNursery dflags -- and save the current cost centre stack in the TSO when profiling: when (dopt Opt_SccProfilingOn dflags) $ @@ -304,8 +304,8 @@ closeNursery dflags = mkStore (nursery_bdescr_free dflags) (cmmOffsetW dflags st loadThreadState :: DynFlags -> LocalReg -> LocalReg -> CmmAGraph loadThreadState dflags tso stack = do - -- tso <- newTemp gcWord -- TODO FIXME NOW - -- stack <- newTemp gcWord -- TODO FIXME NOW + -- tso <- newTemp (gcWord dflags) -- TODO FIXME NOW + -- stack <- newTemp (gcWord dflags) -- TODO FIXME NOW catAGraphs [ -- tso = CurrentTSO; mkAssign (CmmLocal tso) stgCurrentTSO, |