X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FcodeGen%2FCgHeapery.lhs;fp=compiler%2FcodeGen%2FCgHeapery.lhs;h=b82cdfecc0c90e4a7dec76584239d00745d9dec7;hb=3a6c9110a310fdd2ae40b7706e732c5b94a85bb3;hp=dfa49ebb47f0723328653c308a5fdc66be67faf5;hpb=805692401866497554a48ce02619121bbdca87c6;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgHeapery.lhs b/compiler/codeGen/CgHeapery.lhs
index dfa49eb..b82cdfe 100644
--- a/compiler/codeGen/CgHeapery.lhs
+++ b/compiler/codeGen/CgHeapery.lhs
@@ -458,7 +458,7 @@ do_checks' stk_expr hp_expr stk_nonzero hp_nonzero reg_save_code rts_lbl
 		  [CmmMachOp mo_wordSub [CmmReg spReg, stk_expr],
 		   CmmReg (CmmGlobal SpLim)]
 
-	-- Hp overflow if (Hpp > HpLim)
+	-- Hp overflow if (Hp > HpLim)
 	-- (Hp has been incremented by now)
 	-- HpLim points to the LAST WORD of valid allocation space.
     hp_oflo = CmmMachOp mo_wordUGt