Changeset 5486

Timestamp:

Nov 5, 2006, 6:47:36 AM (18 years ago)

Author:

Gary Byers

Message:

PRINT-OBJECT method for EEPS: handle pointers on PPC(64), print 64-bit
addresses on 64-bit platforms.

File:

• trunk/ccl/lib/foreign-types.lisp (modified) (1 diff)

trunk/ccl/lib/foreign-types.lisp

@@ -1332 +1332 @@
            (container (eep.container eep)))
       (if addr
-        (format out " (#x~8,'0x) " (logand #xffffffff (ash addr 2)))
+        #+ppc-target
+        (progn
+          #+32-bit-target
+          (format out " (#x~8,'0x) " (logand #xffffffff (ash addr 2)))
+          #+64-bit-target
+          (format out " (#x~16,'0x) " (if (typep addr 'integer)
+                                        (logand #xffffffffffffffff (ash addr 2))
+                                        (%ptr-to-int addr))))
+        #+x8664-target
+        (format out " (#x~16,'0x) " addr)
         (format out " {unresolved} "))
       (when (and container (or (not (typep container 'macptr))