Mercurial > emacs
comparison src/print.c @ 84980:db5465b7ec88
(safe_debug_print): Use XHASH.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 29 Sep 2007 20:55:28 +0000 |
| parents | 8ef41e809922 |
| children | a0c901e4e649 |
comparison
equal
deleted
inserted
replaced
| 84979:79d85dce25a5 | 84980:db5465b7ec88 |
|---|---|
| 1023 if (valid > 0) | 1023 if (valid > 0) |
| 1024 debug_print (arg); | 1024 debug_print (arg); |
| 1025 else | 1025 else |
| 1026 fprintf (stderr, "#<%s_LISP_OBJECT 0x%08lx>\r\n", | 1026 fprintf (stderr, "#<%s_LISP_OBJECT 0x%08lx>\r\n", |
| 1027 !valid ? "INVALID" : "SOME", | 1027 !valid ? "INVALID" : "SOME", |
| 1028 #ifdef NO_UNION_TYPE | 1028 (unsigned long) XHASH (arg) |
| 1029 (unsigned long) arg | |
| 1030 #else | |
| 1031 (unsigned long) arg.i | |
| 1032 #endif | |
| 1033 ); | 1029 ); |
| 1034 } | 1030 } |
| 1035 | 1031 |
| 1036 | 1032 |
| 1037 DEFUN ("error-message-string", Ferror_message_string, Serror_message_string, | 1033 DEFUN ("error-message-string", Ferror_message_string, Serror_message_string, |