[Openmcl-cvs-notifications] r10893 - /trunk/source/level-0/l0-cfm-support.lisp

[gb at clozure.com]

Author: gb
Date: Sat Sep 27 02:49:26 2008
New Revision: 10893

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

Modified:
    trunk/source/level-0/l0-cfm-support.lisp

Modified: trunk/source/level-0/l0-cfm-support.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-0/l0-cfm-support.lisp (original)
+++ trunk/source/level-0/l0-cfm-support.lisp Sat Sep 27 02:49:26 2008
@@ -563,7 +563,7 @@
 =

   (defun shlib-containing-address (addr &optional name)
     (declare (ignore name))
-    (rlet ((phmodule :address +null-ptr+))
+    (rlet ((phmodule :address (%null-ptr)))
       (let* ((found (ff-call *get-module-handle-ex-addr*
                              #>DWORD (logior
                                       #$GET_MODULE_HANDLE_EX_FLAG_FROM_ADD=
RESS