| Avoid inlining oneShot in unfoldings
I'm sure there's a reason for this but, again, please say what is, lest I accidentally reverse it in 3 years time.
Simon
| -----Original Message-----
| From: ghc-commits [mailto:ghc-commits-bounces@haskell.org] On Behalf Of
| git@git.haskell.org
| Sent: 25 October 2014 13:59
| To: ghc-commits@haskell.org
| Subject: [commit: ghc] wip/oneShot: Avoid inlining oneShot in unfoldings
| (16066a1)
|
| Repository : ssh://git@git.haskell.org/ghc
|
| On branch : wip/oneShot
| Link :
| http://ghc.haskell.org/trac/ghc/changeset/16066a165dd7245be58d0fbee265e13
| fb21e2aed/ghc
|
| >---------------------------------------------------------------
|
| commit 16066a165dd7245be58d0fbee265e13fb21e2aed
| Author: Joachim Breitner
| Date: Sat Oct 25 14:46:27 2014 +0200
|
| Avoid inlining oneShot in unfoldings
|
|
| >---------------------------------------------------------------
|
| 16066a165dd7245be58d0fbee265e13fb21e2aed
| compiler/basicTypes/MkId.lhs | 4 ++--
| 1 file changed, 2 insertions(+), 2 deletions(-)
|
| diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
| index 05dcdd5..31cd426 100644
| --- a/compiler/basicTypes/MkId.lhs
| +++ b/compiler/basicTypes/MkId.lhs
| @@ -1124,8 +1124,8 @@ lazyId = pcMiscPrelId lazyIdName ty info
| oneShotId :: Id
| oneShotId = pcMiscPrelId oneShotName ty info
| where
| - info = noCafIdInfo `setInlinePragInfo` alwaysInlinePragma
| - `setUnfoldingInfo` mkCompulsoryUnfolding rhs
| + info = noCafIdInfo -- `setInlinePragInfo` alwaysInlinePragma
| + `setUnfoldingInfo` mkWwInlineRule rhs 1
| ty = mkForAllTys [alphaTyVar, betaTyVar] (mkFunTy fun_ty fun_ty)
| fun_ty = mkFunTy alphaTy betaTy
| [body, x] = mkTemplateLocals [fun_ty, alphaTy]
|
| _______________________________________________
| ghc-commits mailing list
| ghc-commits@haskell.org
| http://www.haskell.org/mailman/listinfo/ghc-commits
