YS
Прикол, кооперативная
Size: a a a
2021 May 07
AP
Выглядит как вытесняющая, но внутри у ней неонка кооператив :)
AP
Только один тред, не? m-to-n же, если
-threadedYS
Гибрид какой-то
YS
Как бы контекст свитчну, никого не спрашивая, но только после того, как дадут отмашку
D
ну да в доках ещё заявляют что вытесняющая
http://hackage.haskell.org/package/base-4.15.0.0/docs/Control-Concurrent.html#g:13
http://hackage.haskell.org/package/base-4.15.0.0/docs/Control-Concurrent.html#g:13
D
вытесняющая не вытесняющая
YS
Недовытесняющая
YS
С:
[
Кооперативно вытесняет рантайм ошибки!
YS
Притесняет
[
Дак если бы
[
Я бы тогда увидел сообщение типа "ха-ха, ты только посмотри, как этот лох обосрался"
YS
Я только что увидел
[
Молодец
[
Возьми с полки кусочек немутабельности
[
попробуй.
получится - скинь, как
получится - скинь, как
[
Спасибо.
Я хочу сначала asyncBounded попробовать, если не получится, перейду на этот вариант.
Я хочу сначала asyncBounded попробовать, если не получится, перейду на этот вариант.
IO
Это звучит логично, но на практике не работает
main :: IO ()скомпилированное с
main = do
ref <- newIORef False
void $ forkOS $ fix \go -> readIORef ref >>= \case
True -> putStrLn "bye"
False -> go
threadDelay 100
atomicWriteIORef ref True
-O -threaded и запущенное с +RTS -N6 намертво виснет, даже явный forkOS не помогает. С мавром то же самое, -fno-omit-yields опять все чинит