From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Sep 2018 01:26:12 +0000 (-0700)
Subject: Reset start times of threads when restoring image.
X-Git-Tag: mit-scheme-pucked-9.2.18~7^2~9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fa139471b3706df59bd3292fab4e497a9262e75e;p=mit-scheme.git

Reset start times of threads when restoring image.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 19c163e24..3fb29d404 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -178,7 +178,12 @@ USA.
 (define (reset-threads-high!)
   (set! io-registry (and have-select? (make-select-registry)))
   (set! io-registrations #f)
-  (set! subprocess-registrations '()))
+  (set! subprocess-registrations '())
+  (map-over-population! thread-population
+    (let ((times (get-system-times)))
+      (lambda (thread)
+	(if (thread/start-times thread)
+	    (set-thread/start-times! thread times))))))
 
 (define (make-thread continuation)
   (let ((thread (%make-thread (make-1d-table))))