Changeset 13424


Ignore:
Timestamp:
Feb 1, 2010, 6:19:54 PM (10 years ago)
Author:
rme
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:
5 edited

Legend:

Unmodified
Added
Removed
  • release/1.4/source

  • release/1.4/source/compiler

  • release/1.4/source/level-0/X86

    • Property svn:mergeinfo changed (with no actual effect on merging)
  • release/1.4/source/level-1/linux-files.lisp

    r13122 r13424  
    136136          (let* ((now (get-internal-real-time))
    137137                 (stop (+ now
    138                           (* secs 1000)
     138                          (* secs internal-time-units-per-second)
    139139                          millis)))
    140140            (loop
     
    150150                  (let* ((diff (- stop now)))
    151151                    (multiple-value-bind (remaining-seconds remaining-millis)
    152                         (floor diff 1000)
     152                        (floor diff internal-time-units-per-second)
    153153                      (setq secs remaining-seconds
    154154                            millis remaining-millis)))))))))))
  • release/1.4/source/lisp-kernel

    • Property svn:mergeinfo changed (with no actual effect on merging)
Note: See TracChangeset for help on using the changeset viewer.