Ignore:
Timestamp:
Sep 22, 2008, 12:25:45 PM (12 years ago)
Author:
gb
Message:

Define GETTIMEOFDAY, which calls lisp_gettimeofday() in the kernel.
(gettimeofday() is prototyped in the mingw headers on Windows but
only available as statically linked code). Change other uses of
#_gettimeofday to call the GETTIMEOFDAY function. Remove some
Windows-specific code that was avoiding use of #_gettimeofday.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r10706 r10822  
    53125312    (let* ((wait-end
    53135313            (when timeout
    5314               (#_gettimeofday now (%null-ptr))
     5314              (gettimeofday now)
    53155315              (+ (timeval->milliseconds now) timeout))))
    53165316      (loop
     
    53285328            (return (values nil nil error)))
    53295329          (when timeout
    5330             (#_gettimeofday now (%null-ptr))
     5330            (gettimeofday now)
    53315331            (setq timeout (- wait-end (timeval->milliseconds now)))
    53325332            (if (<= timeout 0)
     
    53475347    (let* ((wait-end
    53485348            (when timeout
    5349               (#_gettimeofday now (%null-ptr))
     5349              (gettimeofday now)
    53505350              (+ (timeval->milliseconds now) timeout))))
    53515351      (loop
     
    53635363          ;; If there was no timeout, continue to wait forever.
    53645364          (when timeout
    5365             (#_gettimeofday now (%null-ptr))
     5365            (gettimeofday now)
    53665366            (setq timeout (- wait-end (timeval->milliseconds now)))
    53675367            (if (<= timeout 0)
Note: See TracChangeset for help on using the changeset viewer.