[GHC] #8083: setNumCapabilities broken in HEAD

[GHC]

#8083: setNumCapabilities broken in HEAD
------------------------------------------------+--------------------------
        Reporter:  parcs                        |            Owner:
            Type:  bug                          |           Status:  new
        Priority:  normal                       |        Milestone:
       Component:  Runtime System               |          Version:  7.7
      Resolution:                               |         Keywords:
Operating System:  Unknown/Multiple             |     Architecture:
 Type of failure:  Incorrect result at runtime  |  Unknown/Multiple
       Test Case:                               |       Difficulty:
        Blocking:                               |  Unknown
                                                |       Blocked By:
                                                |  Related Tickets:
------------------------------------------------+--------------------------

Comment (by parcs):

 After further investigation this doesn't appear to be intrinsic to
 setNumCapabilities; rather, it looks like a bug in the codegen related to
 safe foreign ccalls. Another test case:

 {{{
 #!haskell
 import GHC.Conc
 import Foreign.C

 foreign import ccall safe blah :: IO ()

 main :: IO ()
 main = do
     n <- getNumCapabilities
     case n of
         1 -> blah
         _ -> return ()
 }}}

 {{{
 #!c
 void blah () { }
 }}}

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