Changeset 13424 for release

Timestamp:

Feb 1, 2010, 10:19:54 AM (15 years ago)

Author:

R. Matthew Emerson

Message:

Port r13414, r13415 (replace hardwired 1000 with
INTERNAL-TIME-UNITS-PER-SECOND in %TIMED-WAIT-ON-SEMAPHORE-PTR)
to 1.4 branch from trunk.

See ticket:657.

Location:

release/1.4/source

Files:

• . (modified) (1 prop)
• compiler (modified) (1 prop)
• level-0/X86 (modified) (1 prop)
• level-1/linux-files.lisp (modified) (2 diffs)
• lisp-kernel (modified) (1 prop)

release/1.4/source/level-1/linux-files.lisp

@@ -136 +136 @@
           (let* ((now (get-internal-real-time))
                  (stop (+ now
-                          (* secs 1000)
+                          (* secs internal-time-units-per-second)
                           millis)))
             (loop
@@ -150 +150 @@
                   (let* ((diff (- stop now)))
                     (multiple-value-bind (remaining-seconds remaining-millis)
-                        (floor diff 1000)
+                        (floor diff internal-time-units-per-second)
                       (setq secs remaining-seconds
                             millis remaining-millis)))))))))))