diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-08-24 13:42:57 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-25 11:12:34 +0100 |
| commit | fb127a99c6f69dd13e2cd8add01eb3a726fa2f76 (patch) | |
| tree | 7acf9913ec8e4beac65f66e51d91a8d9147365ca /compiler/codeGen/StgCmmTicky.hs | |
| parent | 621ea4126b1948fe90915940b364f1efe41cad44 (diff) | |
| download | haskell-fb127a99c6f69dd13e2cd8add01eb3a726fa2f76.tar.gz | |
Refactoring/renaming
Diffstat (limited to 'compiler/codeGen/StgCmmTicky.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmTicky.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index 2da539b1e9..1224ad1d5a 100644 --- a/compiler/codeGen/StgCmmTicky.hs +++ b/compiler/codeGen/StgCmmTicky.hs @@ -105,10 +105,9 @@ emitTickyCounter cl_info args zeroCLit -- Link ] } where - name = closureName cl_info - ticky_ctr_label = mkRednCountsLabel name $ clHasCafRefs cl_info + ticky_ctr_label = closureRednCountsLabel cl_info arg_descr = map (showTypeCategory . idType) args - fun_descr mod_name = ppr_for_ticky_name mod_name name + fun_descr mod_name = ppr_for_ticky_name mod_name (closureName cl_info) -- When printing the name of a thing in a ticky file, we want to -- give the module name even for *local* things. We print |