[Openmcl-cvs-notifications] r12926 - /trunk/source/lib/nfcomp.lisp

[gb at clozure.com]

Author: gb
Date: Thu Oct  8 16:07:01 2009
New Revision: 12926

Log:
When dumping a macptr, allow the "domain" to be 1 or 0.  (When we try
to classify typed pointers - mostly to identify ObjC objects - the domain
is set to 1 if the pointer fails ObjC classification tests; I think that
the domain can be set to 1 in some other cases, too.)

Modified:
    trunk/source/lib/nfcomp.lisp

Modified: trunk/source/lib/nfcomp.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/lib/nfcomp.lisp (original)
+++ trunk/source/lib/nfcomp.lisp Thu Oct  8 16:07:01 2009
@@ -1235,7 +1235,7 @@
               ;; Treat untyped pointers to the high/low 64K of the address
               ;; space as constants.  Refuse to dump other pointers.
               (unless (and (zerop (%macptr-type exp))
-                           (zerop (%macptr-domain exp)))
+                           (<=3D (%macptr-domain exp) 1))
                 (error "Can't dump typed pointer ~s" exp))
               (let* ((addr (%ptr-to-int exp)))
                 (unless (or (< addr #x10000)