From cd33eefd0467ae7ee4d22f16fcaaccfd33f18cb5 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 16 Oct 2012 15:28:26 +0100 Subject: Some alpha renaming Mostly d -> g (matching DynFlag -> GeneralFlag). Also renamed if* to when*, matching the Haskell if/when names --- compiler/codeGen/StgCmmHeap.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compiler/codeGen/StgCmmHeap.hs') diff --git a/compiler/codeGen/StgCmmHeap.hs b/compiler/codeGen/StgCmmHeap.hs index c133ab00d4..7393faac9f 100644 --- a/compiler/codeGen/StgCmmHeap.hs +++ b/compiler/codeGen/StgCmmHeap.hs @@ -584,7 +584,7 @@ do_checks mb_stk_hwm checkYield mb_alloc_lit do_gc = do emitAssign hpReg bump_hp emit =<< mkCmmIfThen hp_oflo (alloc_n <*> mkBranch gc_id) else do - when (not (dopt Opt_OmitYields dflags) && checkYield) $ do + when (not (gopt Opt_OmitYields dflags) && checkYield) $ do -- Yielding if HpLim == 0 let yielding = CmmMachOp (mo_wordEq dflags) [CmmReg (CmmGlobal HpLim), -- cgit v1.2.1