Hello
I am having problems with the threaded rts (6.5.20050207)
dying with 'schedule: re-entered unsafely'. The same code
seems to work with 6.2.2 with threaded rts.
The exact error message is:
foo: schedule: re-entered unsafely.
Perhaps a 'foreign import unsafe' should be 'safe'?
I originally notices the problem with networking code which
didn't use any of Network (nor threadWaitX). However the error
appeared even with the standard libraries tipping in the direction
of a bug in the rts.
The code works most of the time, but has a small probability of
failing when load is high. The test case implements a dummy web
server which can be tried with e.g. apache benchmark (ab),
/usr/sbin/ab2 -c 1000 -n 5000 127.0.0.1:8080/foo
usually crashes the code when run a few times.
The code should be compiled and run as
ghc --make -threaded foo.hs -o foo ./foo 8080
import Network
import Control.Concurrent
import qualified Control.Exception as E
import System
import System.IO
main = do [port] - getArgs
server port
server port = do
s - listenOn $ PortNumber $ fromIntegral $ read port
acceptLoop s
acceptLoop sock = do
(csock,_,_) - accept sock
forkIO (handle csock `E.catch` print)
acceptLoop sock
handle sock = do
hPutStr sock HTTP/1.0 200 OK\r\nContent-Type: text/plain\r\n\r\n
hPutStr sock (This is the body for the request to\n++hope you like
this.\n\nnow garbage:\n)
hClose sock
- Einar Karttunen
___
Glasgow-haskell-users mailing list
Glasgow-haskell-users@haskell.org
http://www.haskell.org/mailman/listinfo/glasgow-haskell-users