diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2015-07-27 15:51:16 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2015-07-27 15:51:16 +0100 |
| commit | a1e8620fa2840f1f18297d784a2d2b174b27f566 (patch) | |
| tree | 3ec13231ba0da90ea0abb8fcc9196eba7a4c012b /compiler/codeGen/StgCmmHeap.hs | |
| parent | 09925c364c3fb7d3e8610f8c3ae26238d2941fc0 (diff) | |
| download | haskell-a1e8620fa2840f1f18297d784a2d2b174b27f566.tar.gz | |
Revert "Eliminate zero_static_objects_list()"
This reverts commit b949c96b4960168a3b399fe14485b24a2167b982.
Diffstat (limited to 'compiler/codeGen/StgCmmHeap.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmHeap.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmHeap.hs b/compiler/codeGen/StgCmmHeap.hs index 4b2bd96b52..0e9eb6d658 100644 --- a/compiler/codeGen/StgCmmHeap.hs +++ b/compiler/codeGen/StgCmmHeap.hs @@ -212,9 +212,8 @@ mkStaticClosureFields dflags info_tbl ccs caf_refs payload -- collector will ignore it. static_link_value | mayHaveCafRefs caf_refs = mkIntCLit dflags 0 - | otherwise = mkIntCLit dflags 3 -- No CAF refs - -- See Note [STATIC_LINK fields] - -- in rts/sm/Storage.h + | otherwise = mkIntCLit dflags 1 -- No CAF refs + mkStaticClosure :: DynFlags -> CLabel -> CostCentreStack -> [CmmLit] -> [CmmLit] -> [CmmLit] -> [CmmLit] -> [CmmLit] |