(in-package "SB!IMPL")
+(!begin-collecting-cold-init-forms)
+
;;; Current deadline as internal time units or NIL.
-(defvar *deadline* nil)
(declaim (type (or unsigned-byte null) *deadline*))
+(defvar *deadline*)
+(!cold-init-forms (setq *deadline* nil))
;;; The relative number of seconds the current deadline corresponds
;;; to. Used for continuing from TIMEOUT conditions.
-(defvar *deadline-seconds* nil)
+(defvar *deadline-seconds*)
+(!cold-init-forms (setq *deadline-seconds* nil))
(declaim (inline seconds-to-internal-time))
(defun seconds-to-internal-time (seconds)
CONDITION, or return NIL if the restart is not found."
(try-restart 'cancel-deadline condition))
+(declaim (inline relative-decoded-times))
+(defun relative-decoded-times (abs-sec abs-usec)
+ #!+sb-doc
+ "Returns relative decoded times: difference between SEC and USEC and
+current real time."
+ (multiple-value-bind (now-sec now-usec)
+ (decode-internal-time (get-internal-real-time))
+ (let ((rel-sec (- abs-sec now-sec)))
+ (cond ((> now-usec abs-usec)
+ (values (max 0 (1- rel-sec))
+ (- (+ abs-usec 1000000) now-usec)))
+ (t
+ (values (max 0 rel-sec)
+ (- abs-usec now-usec)))))))
+
;;; Returns TIMEOUT-SEC, TIMEOUT-USEC, DEADLINE-SEC, DEADLINE-USEC, SIGNALP
;;;
;;; Takes *DEADLINE* into account: if it occurs before given SECONDS,
(decode-internal-time final-timeout)
(multiple-value-bind (stop-sec stop-usec)
(decode-internal-time final-deadline)
- (values to-sec to-usec stop-sec stop-usec signalp)))
+ (values (max 0 to-sec) (max 0 to-usec) stop-sec stop-usec signalp)))
(values nil nil nil nil nil)))))))
+(!defun-from-collected-cold-init-forms !deadline-cold-init)