scheduler: (runcount) Exlain absence of atomic-box-compare-and-swap!.

Closes: #48 Reported-by: cireu (with some adjustments) * fibers/scheduler.scm (run-scheduler)[run-task]: Explain it.
wingo · Sep 14, 2023 · 272592b · 272592b
1 parent 3ba92d9
commit 272592b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/fibers/scheduler.scm b/fibers/scheduler.scm
@@ -284,6 +284,8 @@ value.  Return zero values."
         (cur (scheduler-current-runqueue sched))
         (steal-work! (work-stealer sched)))
     (define (run-task task)
+      ;; The only thread writing to the runcount box is the thread of SCHED,
+      ;; so no need for atomic-box-compare-and-swap! here.
       (atomic-box-set! runcount-box
                        (logand (1+ (atomic-box-ref runcount-box)) #xffffFFFF))
       (call-with-prompt tag