diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-28 16:09:50 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-31 16:43:58 +0100 |
| commit | de3a8f7631b5276c30c90a256e8135a8ff3095e7 (patch) | |
| tree | 4c90507007f4ead15548f2002a0ff5d237f95a6e /compiler/codeGen/StgCmmTicky.hs | |
| parent | 8aabe8d06f7202c9a6cd1133e0b1ebc81338eed9 (diff) | |
| download | haskell-de3a8f7631b5276c30c90a256e8135a8ff3095e7.tar.gz | |
Cleanup: add mkIntExpr and zeroExpr utils
Diffstat (limited to 'compiler/codeGen/StgCmmTicky.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmTicky.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index ec8f674555..585d6b08eb 100644 --- a/compiler/codeGen/StgCmmTicky.hs +++ b/compiler/codeGen/StgCmmTicky.hs @@ -186,14 +186,14 @@ registerTickyCtr ctr_lbl test = CmmMachOp (MO_Eq wordWidth) [CmmLoad (CmmLit (cmmLabelOffB ctr_lbl oFFSET_StgEntCounter_registeredp)) bWord, - CmmLit (mkIntCLit 0)] + zeroExpr] register_stmts = [ mkStore (CmmLit (cmmLabelOffB ctr_lbl oFFSET_StgEntCounter_link)) (CmmLoad ticky_entry_ctrs bWord) , mkStore ticky_entry_ctrs (mkLblExpr ctr_lbl) , mkStore (CmmLit (cmmLabelOffB ctr_lbl oFFSET_StgEntCounter_registeredp)) - (CmmLit (mkIntCLit 1)) ] + (mkIntExpr 1) ] ticky_entry_ctrs = mkLblExpr (mkCmmDataLabel rtsPackageId (fsLit "ticky_entry_ctrs")) tickyReturnOldCon, tickyReturnNewCon :: RepArity -> FCode () |