CS: no large-allocation signal in non-main OS thread

This problem was exposed by the "db" collection's OS-thread test.
tgbugs · Jul 26, 2023 · 96100b2 · 96100b2
1 parent b13e917
commit 96100b2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/racket/src/cs/rumble/memory.ss b/racket/src/cs/rumble/memory.ss
@@ -231,7 +231,8 @@
       ;; fast enough by regularly scheduled event checking because it's
       ;; allocated in large chunks
       (when (>= (bytes-allocated 0) trigger-major-gc-allocated)
-        (set-timer 1)))))
+        (when (eqv? (place-thread-category) PLACE-MAIN-THREAD)
+          (set-timer 1))))))
 
 (define (set-incremental-collection-enabled! on?)
   (set! disable-incremental? (not on?)))