(safe_debug_print): Use XHASH.

2 files changed, 3 insertions, 5 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index d91aa11e9dd..0f2e34fe94e 100644
--- 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 a14c041d6a2..911422ac25b 100644
--- 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)
              );
 }