[GHC] #14998: Sort out the strictness mess for exceptions

[GHC]

#14998: Sort out the strictness mess for exceptions
-------------------------------------+-------------------------------------
        Reporter:  simonpj           |                Owner:  (none)
            Type:  bug               |               Status:  new
        Priority:  normal            |            Milestone:  8.4.3
       Component:  Compiler          |              Version:  8.2.2
      Resolution:                    |             Keywords:  Exceptions
Operating System:  Unknown/Multiple  |         Architecture:
                                     |  Unknown/Multiple
 Type of failure:  None/Unknown      |            Test Case:
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by sgraf):

 This measurement is for item 3 above for the following diff:

 {{{
 diff --git a/compiler/prelude/primops.txt.pp
 b/compiler/prelude/primops.txt.pp
 index 43e8f535d3..c80b99268c 100644
 --- a/compiler/prelude/primops.txt.pp
 +++ b/compiler/prelude/primops.txt.pp
 @@ -2051,7 +2051,7 @@ primop  CatchOp "catch#" GenPrimOp
         -> State# RealWorld
         -> (# State# RealWorld, a #)
     with
 -   strictness  = { \ _arity -> mkClosedStrictSig [ lazyApply1Dmd
 +   strictness  = { \ _arity -> mkClosedStrictSig [ strictApply1Dmd
                                                   , lazyApply2Dmd
                                                   , topDmd] topRes }
                   -- See Note [Strictness for mask/unmask/catch]
 }}}

 More or less no change, except for -0.1% in counted instructions for
 `grep`.

-- 
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/14998#comment:2>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler