[Openmcl-cvs-notifications] r10895 - /trunk/source/level-1/l1-lisp-threads.lisp

[gb at clozure.com]

Author: gb
Date: Sat Sep 27 02:50:51 2008
New Revision: 10895

Log:
Can't cross-compile +null-ptr+ because of (surmountable ...) word-size issu=
es.

Modified:
    trunk/source/level-1/l1-lisp-threads.lisp

Modified: trunk/source/level-1/l1-lisp-threads.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-lisp-threads.lisp (original)
+++ trunk/source/level-1/l1-lisp-threads.lisp Sat Sep 27 02:50:51 2008
@@ -73,16 +73,16 @@
      (round (pref tv :timeval.tv_usec) (floor 1000000 *ticks-per-second*))=
))
 =

 =

-(defun gettimeofday (ptimeval &optional (ptz +null-ptr+))
+(defun gettimeofday (ptimeval &optional ptz)
   (int-errno-ffcall (%kernel-import target::kernel-import-lisp-gettimeofda=
y)
                     :address ptimeval
-                    :address ptz
+                    :address (or ptz (%null-ptr))
                     :int))
 =

 (defloadvar *lisp-start-timeval*
     (progn
       (let* ((r (make-record :timeval)))
-        (gettimeofday r +null-ptr+)
+        (gettimeofday r)
         r)))
 =

 =