From bbccf6a3558a7a78d9d34a3c957e32f62a9c8e02 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sat, 19 Aug 2000 17:48:19 +0000
Subject: [PATCH] When restarting a process, reset the scheduled times and
 accrued times.

---
 code/multi-proc.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp
index 3c165bab9..d7195974f 100644
--- a/code/multi-proc.lisp
+++ b/code/multi-proc.lisp
@@ -5,7 +5,7 @@
 ;;; the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.38 2000/08/12 15:05:24 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.39 2000/08/19 17:48:19 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -999,6 +999,10 @@
    (setf (process-wait-timeout process) nil)
    (setf (process-wait-return-value process) nil)
    (setf (process-interrupts process) nil)
+   (setf (process-scheduled-real-time process) (get-real-time))
+   (setf (process-scheduled-run-time process) (get-run-time))
+   (setf (process-%real-time process) 0d0)
+   (setf (process-%run-time process) 0d0)
    (setf (process-state process) :active)
    (push process *all-processes*))
   process)
-- 
GitLab