Ticket #2858: patch

File patch, 705 bytes (added by dsh, 5 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