diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-16 17:22:49 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-16 17:22:49 +0000 |
commit | 7e1c132845500d7123d26b71065abdd35044b926 (patch) | |
tree | 32411bf3e12d6122690b59d8e98f6ea354455b62 | |
parent | d3378e4b23595f1182f91a9936e3191b98d6b134 (diff) | |
download | haskell-new-demand-to-merge.tar.gz |
Remove tabsnew-demand-to-merge
-rw-r--r-- | compiler/basicTypes/Demand.lhs | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/compiler/basicTypes/Demand.lhs b/compiler/basicTypes/Demand.lhs index af28473517..936fdfc5d0 100644 --- a/compiler/basicTypes/Demand.lhs +++ b/compiler/basicTypes/Demand.lhs @@ -621,18 +621,18 @@ resTypeArgDmd _ = top \end{code} %************************************************************************ -%* * +%* * Whether a demand justifies a w/w split -%* * +%* * %************************************************************************ \begin{code} worthSplittingFun :: [Demand] -> DmdResult -> Bool - -- True <=> the wrapper would not be an identity function + -- True <=> the wrapper would not be an identity function worthSplittingFun ds res = any worth_it ds || returnsCPR res - -- worthSplitting returns False for an empty list of demands, - -- and hence do_strict_ww is False if arity is zero and there is no CPR + -- worthSplitting returns False for an empty list of demands, + -- and hence do_strict_ww is False if arity is zero and there is no CPR where -- See Note [Worker-wrapper for bottoming functions] worth_it (JD {strd=HyperStr, absd=a}) = isUsed a -- A Hyper-strict argument, safe to do W/W @@ -641,19 +641,19 @@ worthSplittingFun ds res worth_it (JD {strd=SProd _}) = True -- Product arg to evaluate worth_it (JD {strd=Str, absd=UProd _}) = True -- Strictly used product arg worth_it (JD {strd=Str, absd=UHead}) = True - worth_it _ = False + worth_it _ = False -worthSplittingThunk :: Demand -- Demand on the thunk - -> DmdResult -- CPR info for the thunk - -> Bool +worthSplittingThunk :: Demand -- Demand on the thunk + -> DmdResult -- CPR info for the thunk + -> Bool worthSplittingThunk dmd res = worth_it dmd || returnsCPR res where - -- Split if the thing is unpacked + -- Split if the thing is unpacked worth_it (JD {strd=SProd _, absd=a}) = someCompUsed a worth_it (JD {strd=Str, absd=UProd _}) = True -- second component points out that at least some of - worth_it _ = False + worth_it _ = False \end{code} Note [Worthy functions for Worker-Wrapper split] @@ -710,10 +710,10 @@ We used not to split if the result is bottom. [Justification: there's no efficiency to be gained.] But it's sometimes bad not to make a wrapper. Consider - fw = \x# -> let x = I# x# in case e of - p1 -> error_fn x - p2 -> error_fn x - p3 -> the real stuff + fw = \x# -> let x = I# x# in case e of + p1 -> error_fn x + p2 -> error_fn x + p3 -> the real stuff The re-boxing code won't go away unless error_fn gets a wrapper too. [We don't do reboxing now, but in general it's better to pass an unboxed thing to f, and have it reboxed in the error cases....] |