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