From 3aa06992df2432f5dd821e1518be097ce1965b26 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 20 Jan 2016 09:27:34 -0700 Subject: [PATCH] runtime/world-report.scm edwin/world-monitor.scm: minor fixes Add missing case for thread-execution-state STOPPED. Add "monitor" flag. --- src/edwin/world-monitor.scm | 4 +++- src/runtime/world-report.scm | 1 + 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/edwin/world-monitor.scm b/src/edwin/world-monitor.scm index dac34edad..5b02a344b 100644 --- a/src/edwin/world-monitor.scm +++ b/src/edwin/world-monitor.scm @@ -51,7 +51,7 @@ it, and spawn a thread to update it after every (set-buffer-major-mode! buffer (ref-mode-object read-only)) (let ((registration #f) (report #f) - (thread-flags (list (cons (current-thread) "Edwin")))) + (thread-flags (list (cons (current-thread) "edwin")))) (define (new-report) (with-output-to-string @@ -81,7 +81,9 @@ it, and spawn a thread to update it after every (exit-current-thread #t)))))))) (buffer-put! buffer 'WORLD-MONITOR monitor) + (set! thread-flags (cons (cons monitor "monitor") thread-flags)) (update-world-monitor! buffer (new-report)) + (set-buffer-point! buffer (buffer-start buffer)) (set! registration (register-inferior-thread! monitor (named-lambda (world-monitor-output!) diff --git a/src/runtime/world-report.scm b/src/runtime/world-report.scm index b3ab83c40..ab5bd037b 100644 --- a/src/runtime/world-report.scm +++ b/src/runtime/world-report.scm @@ -178,6 +178,7 @@ USA. ((RUNNING) "running") ((DEAD) " dead ") ((WAITING) "waiting") + ((STOPPED) "stopped") ((RUNNING-WITHOUT-PREEMPTION) "RUNNING") (else " ????")) port)) -- 2.25.1