diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-08-20 10:34:39 +0100 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-08-20 17:19:29 +0100 |
| commit | 3f279f37042458dfcfd06eceb127eed4a528c3cc (patch) | |
| tree | 9946b80f749121d2195483b1f12bb2ef7ebcc7e9 /compiler/codeGen/StgCmmTicky.hs | |
| parent | f661e79c3ba0aaad46d5366f7f2836dc2e78b82b (diff) | |
| download | haskell-3f279f37042458dfcfd06eceb127eed4a528c3cc.tar.gz | |
Trailing whitespaces, code formatting, detabify
A major cleanup of trailing whitespaces and tabs in codeGen/
directory. I also adjusted code formatting in some places.
Diffstat (limited to 'compiler/codeGen/StgCmmTicky.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmTicky.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index f520dc627e..3b06d3ba62 100644 --- a/compiler/codeGen/StgCmmTicky.hs +++ b/compiler/codeGen/StgCmmTicky.hs @@ -240,9 +240,9 @@ tickyEnterViaNode = ifTicky $ bumpTickyCounter (fsLit "ENT_VIA_NODE_ctr") tickyEnterThunk :: ClosureInfo -> FCode () tickyEnterThunk cl_info - = ifTicky $ do + = ifTicky $ do { bumpTickyCounter ctr - ; unless static $ do + ; unless static $ do ticky_ctr_lbl <- getTickyCtrLabel registerTickyCtrAtEntryDyn ticky_ctr_lbl bumpTickyEntryCount ticky_ctr_lbl } @@ -581,6 +581,7 @@ bumpHistogram :: FastString -> Int -> FCode () bumpHistogram _lbl _n -- = bumpHistogramE lbl (CmmLit (CmmInt (fromIntegral n) cLongWidth)) = return () -- TEMP SPJ Apr 07 + -- six years passed - still temp? JS Aug 2013 {- bumpHistogramE :: LitString -> CmmExpr -> FCode () |