Commit 17e2a5cd authored by thoughtpolice's avatar thoughtpolice
Browse files

Revert "GHC.Conc.Sync: Pass TSO to stackOverflow"

This reverts commit 0cfba06e09cae209c6fc1f94edd815ccf5a7e9d7.
parent 31132709
......@@ -764,9 +764,7 @@ sharedCAF a get_or_set =
deRefStablePtr (castPtrToStablePtr (castPtr ref2))
reportStackOverflow :: IO ()
reportStackOverflow = do
ThreadId tid <- myThreadId
callStackOverflowHook tid
reportStackOverflow = callStackOverflowHook
reportError :: SomeException -> IO ()
reportError ex = do
......@@ -776,7 +774,7 @@ reportError ex = do
-- SUP: Are the hooks allowed to re-enter Haskell land? If so, remove
-- the unsafe below.
foreign import ccall unsafe "stackOverflow"
callStackOverflowHook :: ThreadId# -> IO ()
callStackOverflowHook :: IO ()
{-# NOINLINE uncaughtExceptionHandler #-}
uncaughtExceptionHandler :: IORef (SomeException -> IO ())
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment