Changeset 8398

Timestamp:

Feb 3, 2008, 4:12:11 AM (17 years ago)

Author:

Gary Byers

Message:

Use (%null-ptr) vice +null-ptr+; easier to cross-compile.

Location:

trunk/source/level-1

Files:

• l1-streams.lisp (modified) (4 diffs)
• linux-files.lisp (modified) (1 diff)

trunk/source/level-1/l1-streams.lisp

@@ -5212 +5212 @@
             (if timeout
               (multiple-value-bind (seconds millis) (milliseconds timeout)
-                (#_gettimeofday now +null-ptr+)
+                (#_gettimeofday now (%null-ptr))
                 (setq timeout (+ (* seconds 1000) millis))
                 (+ (timeval->milliseconds now) timeout)))))
@@ -5226 +5226 @@
         ;; If there was no timeout, continue to wait forever.
         (when timeout
-          (#_gettimeofday now +null-ptr+)
+          (#_gettimeofday now (%null-ptr))
           (setq timeout (- wait-end (timeval->milliseconds now)))
           (if (<= timeout 0)
@@ -5243 +5243 @@
             (if timeout
               (multiple-value-bind (seconds millis) (milliseconds timeout)
-                (#_gettimeofday now +null-ptr+)
+                (#_gettimeofday now (%null-ptr))
                 (setq timeout (+ (* seconds 1000) millis))
                 (+ (timeval->milliseconds now) timeout)))))
@@ -5257 +5257 @@
         ;; If there was no timeout, continue to wait forever.
         (when timeout
-          (#_gettimeofday now +null-ptr+)
+          (#_gettimeofday now (%null-ptr))
           (setq timeout (- wait-end (timeval->milliseconds now)))
           (if (<= timeout 0)

trunk/source/level-1/linux-files.lisp

@@ -1323 +1323 @@
                   (fd-close fd)
                   (error "Can't make a vector with ~s elements in this implementation." (+ ndata-elements nalignment-elements)))
-                (let* ((addr (#_mmap +null-ptr+
+                (let* ((addr (#_mmap (%null-ptr)
                                      nbytes
                                      #$PROT_NONE