(safe_debug_print): Use XHASH.

diff --git a/src/ChangeLog b/src/ChangeLog
index d91aa11e9ddef98c3a8bf9fb13b0622a6c6250ca..0f2e34fe94ec2d3e5eca0b55e21b85b3fbab5e56 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 a14c041d6a2ba15db4b31fc98d0c2c8daebb3583..911422ac25bdbaceedc47b518cec78c53687cec8 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)
             );
 }