Mercurial > hg > xemacs-beta

comparison src/data.c @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 8eaf7971accc
children 9ad43877534d
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
87 { 87 {
88 if (((CHARP (obj1) && INTP (obj2)) || (CHARP (obj2) && INTP (obj1))) 88 if (((CHARP (obj1) && INTP (obj2)) || (CHARP (obj2) && INTP (obj1)))
89 && (debug_issue_ebola_notices >= 2 89 && (debug_issue_ebola_notices >= 2
90 || XREALINT (obj1) == XREALINT (obj2))) 90 || XREALINT (obj1) == XREALINT (obj2)))
91 { 91 {
92 #if 0
93 /*#ifndef LRECORD_SYMBOL*/
94 struct backtrace *bt = backtrace_list;
95 char *p;
96 /* Continuing the joke by printing `Ebola warning!!!' confuses */
97 /* too many people. The message must be printed because Emacs used */
98 /* to work differently for two decades. */
99 /* temporary hack that will probably be around too long -slb */
100 if (XTYPE(*bt->function) == Lisp_Symbol)
101 {
102 p = (XSYMBOL(*bt->function)->name)->_data;
103 if (!strcmp(p, "byte-compile-constant") ||
104 !strcmp(p, "byte-compile-constants-vector") ||
105 !strcmp(p, "byte-optimize-minus") ||
106 !strcmp(p, "byte-optimize-plus") ||
107 !strcmp(p, "byte-decompile-bytecode-1") ||
108 !strcmp(p, "byte-optimize-logmumble") ||
109 !strcmp(p, "byte-compile-push-constant")) goto sc;
110 }
111 #endif
112 stderr_out("Comparison between integer and character is constant nil ("); 92 stderr_out("Comparison between integer and character is constant nil (");
113 Fprinc (obj1, Qexternal_debugging_output); 93 Fprinc (obj1, Qexternal_debugging_output);
114 stderr_out (" and "); 94 stderr_out (" and ");
115 Fprinc (obj2, Qexternal_debugging_output); 95 Fprinc (obj2, Qexternal_debugging_output);
116 stderr_out (")\n"); 96 stderr_out (")\n");
117 debug_short_backtrace (debug_ebola_backtrace_length); 97 debug_short_backtrace (debug_ebola_backtrace_length);
118 } 98 }
119 sc:
120 return EQ (obj1, obj2); 99 return EQ (obj1, obj2);
121 } 100 }
122 101
123 #endif /* DEBUG_XEMACS */ 102 #endif /* DEBUG_XEMACS */
124 103