diff options
Diffstat (limited to 'compiler/codeGen/StgCmmClosure.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index 88d1498728..1bf726c7c3 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -358,17 +358,6 @@ isLFReEntrant _ = False -- Choosing SM reps ----------------------------------------------------------------------------- -chooseSMRep - :: Bool -- True <=> static closure - -> LambdaFormInfo - -> WordOff -> WordOff -- Tot wds, ptr wds - -> SMRep - -chooseSMRep is_static lf_info tot_wds ptr_wds - = mkHeapRep is_static ptr_wds nonptr_wds (lfClosureType lf_info) - where - nonptr_wds = tot_wds - ptr_wds - lfClosureType :: LambdaFormInfo -> ClosureTypeInfo lfClosureType (LFReEntrant _ arity _ argd) = Fun (fromIntegral arity) argd lfClosureType (LFCon con) = Constr (fromIntegral (dataConTagZ con)) |