diff options
Diffstat (limited to 'compiler/GHC/StgToCmm/Closure.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Closure.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/compiler/GHC/StgToCmm/Closure.hs b/compiler/GHC/StgToCmm/Closure.hs index 3ff745a719..bba8d91643 100644 --- a/compiler/GHC/StgToCmm/Closure.hs +++ b/compiler/GHC/StgToCmm/Closure.hs @@ -66,6 +66,7 @@ module GHC.StgToCmm.Closure ( cafBlackHoleInfoTable, indStaticInfoTable, staticClosureNeedsLink, + smallArrayStaticInfoTable, ) where import GHC.Prelude @@ -948,6 +949,14 @@ indStaticInfoTable , cit_srt = Nothing , cit_clo = Nothing } +smallArrayStaticInfoTable :: WordOff -> CmmInfoTable +smallArrayStaticInfoTable n + = CmmInfoTable { cit_lbl = mkSMAP_FROZEN_DIRTY_infoLabel + , cit_rep = smallArrPtrsRep (fromIntegral n) + , cit_prof = NoProfilingInfo + , cit_srt = Nothing + , cit_clo = Nothing } + staticClosureNeedsLink :: Bool -> CmmInfoTable -> Bool -- A static closure needs a link field to aid the GC when traversing -- the static closure graph. But it only needs such a field if either |