diff options
| author | dias@eecs.harvard.edu <unknown> | 2008-11-26 16:57:42 +0000 |
|---|---|---|
| committer | dias@eecs.harvard.edu <unknown> | 2008-11-26 16:57:42 +0000 |
| commit | df54e4b621b1d2a8e30b01b3e93494a515d09f48 (patch) | |
| tree | 947681aeb269bf9d2af39d26bec183fe6aa98b12 /compiler/codeGen/StgCmmBind.hs | |
| parent | a76ba381f76fd9a5178e815206466a97dab46f75 (diff) | |
| download | haskell-df54e4b621b1d2a8e30b01b3e93494a515d09f48.tar.gz | |
one more missing patch from new codegen path
Diffstat (limited to 'compiler/codeGen/StgCmmBind.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index ad1b3e2bb5..e4960fc9cb 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -597,7 +597,7 @@ link_caf :: ClosureInfo -- updated with the new value when available. The reason for all of this -- is that we only want to update dynamic heap objects, not static ones, -- so that generational GC is easier. -link_caf cl_info is_upd = do +link_caf cl_info _is_upd = do { -- Alloc black hole specifying CC_HDR(Node) as the cost centre ; let use_cc = costCentreFrom (CmmReg nodeReg) blame_cc = use_cc |