diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-22 15:24:29 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-25 11:12:30 +0100 |
| commit | 493c12ff54673679a79c242f3f0e224019d7117f (patch) | |
| tree | c943d4ee8524349b7a78fd615cdec4a5f43e8f4b /compiler/codeGen/StgCmmTicky.hs | |
| parent | 5b167f5edad7d3268de20452da7af05c38972f7c (diff) | |
| download | haskell-493c12ff54673679a79c242f3f0e224019d7117f.tar.gz | |
More refactoring (CgRep)
* Move CgRep (private to old codgen) from SMRep to ClosureInfo
* Avoid using CgRep in new codegen
* Move SMRep and Bitmap from codeGen/ to cmm/
Diffstat (limited to 'compiler/codeGen/StgCmmTicky.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmTicky.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index 8db4d3e829..3775130aaf 100644 --- a/compiler/codeGen/StgCmmTicky.hs +++ b/compiler/codeGen/StgCmmTicky.hs @@ -247,6 +247,7 @@ tickySlowCallPat _args = return () (str, True) -> bumpTickyCounter' (mkRtsSlowTickyCtrLabel pat) (str, False) -> bumpTickyCounter (sLit "TICK_SLOW_CALL_OTHER") +-- Don't use CgRep; put this function in StgCmmLayout callPattern :: [CgRep] -> (String,Bool) callPattern reps | match == length reps = (chars, True) |