diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-21 17:44:38 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-21 17:44:38 +0100 |
| commit | 75700644a7430612b40ba94476a5749594010671 (patch) | |
| tree | 4f1717e39ef576a35cbd65706582067b56d14487 /compiler/codeGen/CgHeapery.lhs | |
| parent | 07295e96981b29cc6fb88b334d8ebd4b1b807516 (diff) | |
| download | haskell-75700644a7430612b40ba94476a5749594010671.tar.gz | |
Move activeStgRegs into CodeGen.Platform
Diffstat (limited to 'compiler/codeGen/CgHeapery.lhs')
| -rw-r--r-- | compiler/codeGen/CgHeapery.lhs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/compiler/codeGen/CgHeapery.lhs b/compiler/codeGen/CgHeapery.lhs index c0c15131c4..2ce37cf565 100644 --- a/compiler/codeGen/CgHeapery.lhs +++ b/compiler/codeGen/CgHeapery.lhs @@ -526,8 +526,10 @@ do_checks' stk_expr hp_expr stk_nonzero hp_nonzero reg_save_code rts_lbl live \begin{code} hpChkGen :: CmmExpr -> CmmExpr -> CmmExpr -> Code hpChkGen bytes liveness reentry - = do_checks' (CmmLit (mkIntCLit 0)) bytes False True assigns - stg_gc_gen (Just activeStgRegs) + = do dflags <- getDynFlags + let platform = targetPlatform dflags + do_checks' (CmmLit (mkIntCLit 0)) bytes False True assigns + stg_gc_gen (Just (activeStgRegs platform)) where assigns = mkStmts [ mk_vanilla_assignment 9 liveness, mk_vanilla_assignment 10 reentry ] @@ -542,8 +544,10 @@ hpChkNodePointsAssignSp0 bytes sp0 stkChkGen :: CmmExpr -> CmmExpr -> CmmExpr -> Code stkChkGen bytes liveness reentry - = do_checks' bytes (CmmLit (mkIntCLit 0)) True False assigns - stg_gc_gen (Just activeStgRegs) + = do dflags <- getDynFlags + let platform = targetPlatform dflags + do_checks' bytes (CmmLit (mkIntCLit 0)) True False assigns + stg_gc_gen (Just (activeStgRegs platform)) where assigns = mkStmts [ mk_vanilla_assignment 9 liveness, mk_vanilla_assignment 10 reentry ] |