cs: avoid promoting unknown OS thread to known

Related to changes in 18a95c3ae6, but shouldn't affect the problem
that commit addressed, since Racket-level callbacks need to be
involved.
This commit is contained in:
Matthew Flatt 2021-06-01 10:32:36 -06:00
parent a531efe0d5
commit 9736595c7b
2 changed files with 4 additions and 2 deletions

View File

@ -1768,7 +1768,7 @@
(loop (cdr types) (cons (ctype-host-rep type) reps) decls)))])))
;; Rely on the fact that a virtual register defaults to 0 to detect a
;; thread that we didn't start. For a thread that we did start, a
;; thread that we didn't start.
(define PLACE-UNKNOWN-THREAD 0)
(define PLACE-KNOWN-THREAD 1)
(define PLACE-MAIN-THREAD 2)

View File

@ -44,4 +44,6 @@
;; foreign thread that has not yet been initialized to run Rumble
;; and later layers:
(when (eq? 0 (current-future))
(init-virtual-registers)))
(init-virtual-registers)
;; set `place-thread-category` back to "unknown":
(place-thread-category PLACE-UNKNOWN-THREAD)))