[GHC] #8402: throwTo segfaults under -prof -threaded -with-rtsopts=N2

[GHC]

#8402: throwTo segfaults under -prof -threaded -with-rtsopts=N2
----------------------------------+----------------------------------
        Reporter:  akio           |            Owner:
            Type:  bug            |           Status:  new
        Priority:  highest        |        Milestone:  7.8.1
       Component:  Profiling      |          Version:  7.7
      Resolution:                 |         Keywords:
Operating System:  Linux          |     Architecture:  x86_64 (amd64)
 Type of failure:  Runtime crash  |       Difficulty:  Unknown
       Test Case:                 |       Blocked By:
        Blocking:  8453           |  Related Tickets:
----------------------------------+----------------------------------

Comment (by simonmar):

 You're right.  I think the code should be:

 {{{
 #if defined(PROFILING) && (!defined(DEBUG) || defined(THREADED_RTS))
     // see Note [zeroing slop]
     if (era <= 0) return;
 #endif
 }}}

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