This is going to want to do something more complicated shortly.
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
Acked-by: Ian Campbell <ian.campb...@citrix.com>
---
v2: Fix a whitespace error
---
ms-queuedaemon | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/ms-queuedaemon b/ms-queuedaemon
index 3026a64..1fe555d 100755
--- a/ms-queuedaemon
+++ b/ms-queuedaemon
@@ -268,9 +268,8 @@ proc queuerun-perhaps-step {w} {
set thinking_after [after [expr {$c(QueueThoughtsTimeout) * 1000}] \
queue-thoughts-timedout $w]
- for-chan $thinking {
- puts-chan $thinking "!OK think"
- }
+
+ notify-to-think $w $thinking
}
proc report-plan {w} {
@@ -379,6 +378,12 @@ proc cmd/unwait {chan desc} {
puts-chan $chan "OK unwait $res"
}
+proc notify-to-think {w thinking} {
+ for-chan $thinking {
+ puts-chan $thinking "!OK think"
+ }
+}
+
#---------- general stuff ----------
proc banner {chan} {
--
1.7.10.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
http://lists.xen.org/xen-devel
