changeset 84980:db5465b7ec88

(safe_debug_print): Use XHASH.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 29 Sep 2007 20:55:28 +0000
parents 79d85dce25a5
children a35153116cd0
files src/ChangeLog src/print.c
diffstat 2 files changed, 3 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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)
 	     );
 }