diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-13 21:22:04 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-13 21:22:04 +0100 |
| commit | 568fdb14cdb9bed064c96decf1420bf8d9a37ff0 (patch) | |
| tree | 271704d2eb5446e9cc45e43051af17a44b5bfcfb /compiler/codeGen/StgCmmForeign.hs | |
| parent | 4279ab5050df28ba7abd79296a788d1ddb9eb5df (diff) | |
| download | haskell-568fdb14cdb9bed064c96decf1420bf8d9a37ff0.tar.gz | |
Use oFFSET_* from platformConstants rather than Constants
Diffstat (limited to 'compiler/codeGen/StgCmmForeign.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs index d6a9b92bfd..9523a11b1c 100644 --- a/compiler/codeGen/StgCmmForeign.hs +++ b/compiler/codeGen/StgCmmForeign.hs @@ -351,15 +351,15 @@ emitOpenNursery = do dflags <- getDynFlags emit $ openNursery dflags nursery_bdescr_free, nursery_bdescr_start, nursery_bdescr_blocks :: DynFlags -> CmmExpr -nursery_bdescr_free dflags = cmmOffset dflags stgCurrentNursery oFFSET_bdescr_free -nursery_bdescr_start dflags = cmmOffset dflags stgCurrentNursery oFFSET_bdescr_start -nursery_bdescr_blocks dflags = cmmOffset dflags stgCurrentNursery oFFSET_bdescr_blocks +nursery_bdescr_free dflags = cmmOffset dflags stgCurrentNursery (oFFSET_bdescr_free dflags) +nursery_bdescr_start dflags = cmmOffset dflags stgCurrentNursery (oFFSET_bdescr_start dflags) +nursery_bdescr_blocks dflags = cmmOffset dflags stgCurrentNursery (oFFSET_bdescr_blocks dflags) tso_stackobj, tso_CCCS, stack_STACK, stack_SP :: DynFlags -> ByteOff -tso_stackobj dflags = closureField dflags oFFSET_StgTSO_stackobj -tso_CCCS dflags = closureField dflags oFFSET_StgTSO_cccs -stack_STACK dflags = closureField dflags oFFSET_StgStack_stack -stack_SP dflags = closureField dflags oFFSET_StgStack_sp +tso_stackobj dflags = closureField dflags (oFFSET_StgTSO_stackobj dflags) +tso_CCCS dflags = closureField dflags (oFFSET_StgTSO_cccs dflags) +stack_STACK dflags = closureField dflags (oFFSET_StgStack_stack dflags) +stack_SP dflags = closureField dflags (oFFSET_StgStack_sp dflags) closureField :: DynFlags -> ByteOff -> ByteOff |