(safe_debug_print): Use XHASH.

diff --git a/src/ChangeLog b/src/ChangeLog
index d91aa11..0f2e34f 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2007-09-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * print.c (safe_debug_print): Use XHASH.
+
        * lisp.h (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
        Lisp elements such as tags.
        (XHASH): New macro.

diff --git a/src/print.c b/src/print.c
index a14c041..911422a 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1025,11 +1025,7 @@ safe_debug_print (arg)
   else
     fprintf (stderr, "#<%s_LISP_OBJECT 0x%08lx>\r\n",
             !valid ? "INVALID" : "SOME",
-#ifdef NO_UNION_TYPE
-            (unsigned long) arg
-#else
-            (unsigned long) arg.i
-#endif
+            (unsigned long) XHASH (arg)
             );
 }