factor/basis/compiler/threads/threads.factor

! Copyright (C) 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: alien.private compiler.utilities kernel namespaces
stack-checker.alien threads threads.private ;
IN: compiler.threads

[ yield ] yield-hook set-global

[
    dup current-callback eq?
    [ drop ] [ wait-for-callback ] if
] wait-for-callback-hook set-global
Change do-callback to register the current thread with the callback, instead of busy waiting for the current callback to become the right one before returning. Fixes 100% CPU usage issue with system-alert. Thanks to Blei and ex-rzr for doing preliminary analysis of the issue 2011-04-10 22:00:43 -04:00			`! Copyright (C) 2011 Slava Pestov.`
			`! See http://factorcode.org/license.txt for BSD license.`
			`USING: alien.private compiler.utilities kernel namespaces`
compiler: cleanup usings. 2014-12-13 19:10:21 -05:00			`stack-checker.alien threads threads.private ;`
Change do-callback to register the current thread with the callback, instead of busy waiting for the current callback to become the right one before returning. Fixes 100% CPU usage issue with system-alert. Thanks to Blei and ex-rzr for doing preliminary analysis of the issue 2011-04-10 22:00:43 -04:00			`IN: compiler.threads`

			`[ yield ] yield-hook set-global`

			`[`
			`dup current-callback eq?`
			`[ drop ] [ wait-for-callback ] if`
			`] wait-for-callback-hook set-global`