# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1191099328 0
# Node ID db5465b7ec88c00e8cceba6f792b78aaf1f4c06d
# Parent  79d85dce25a5c283a00f07351722291d0c4f6c42
(safe_debug_print): Use XHASH.

diff -r 79d85dce25a5 -r db5465b7ec88 src/ChangeLog
--- a/src/ChangeLog	Sat Sep 29 20:55:05 2007 +0000
+++ b/src/ChangeLog	Sat Sep 29 20:55:28 2007 +0000
@@ -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 -r 79d85dce25a5 -r db5465b7ec88 src/print.c
--- a/src/print.c	Sat Sep 29 20:55:05 2007 +0000
+++ b/src/print.c	Sat Sep 29 20:55:28 2007 +0000
@@ -1025,11 +1025,7 @@
   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)
 	     );
 }