Ticket #2858: patch

File patch, 705 bytes (added by dsh, 7 years ago)

Quick and dirty fix

  • libraries/base/GHC/Conc.lhs

    old new  
    11081108                  _ -> withMVar signalHandlerLock $ \_ -> do
    11091109                          handler_tbl <- peek handlers
    11101110                          sp <- peekElemOff handler_tbl (fromIntegral s)
    1111                           case (unsafeCoerce# sp > 0) of
    1112                            True   -> deRefStablePtr sp >>= forkIO >> return ()
    1113                            False  -> return ()
     1111                          io <- deRefStablePtr sp
     1112                          forkIO io
    11141113                          return False
    11151114
    11161115  if exit then return () else do