Mercurial > hg > xemacs-beta

comparison src/data.c @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 3bb7ccffb0c0
children 15872534500d
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
75 75
76 int debug_issue_ebola_notices; 76 int debug_issue_ebola_notices;
77 77
78 int debug_ebola_backtrace_length; 78 int debug_ebola_backtrace_length;
79 79
80 #if 0
81 /*#ifndef LRECORD_SYMBOL*/
80 #include "backtrace.h" 82 #include "backtrace.h"
83 #endif
81 84
82 int 85 int
83 eq_with_ebola_notice (Lisp_Object obj1, Lisp_Object obj2) 86 eq_with_ebola_notice (Lisp_Object obj1, Lisp_Object obj2)
84 { 87 {
85 if (((CHARP (obj1) && INTP (obj2)) || (CHARP (obj2) && INTP (obj1))) 88 if (((CHARP (obj1) && INTP (obj2)) || (CHARP (obj2) && INTP (obj1)))
86 && (debug_issue_ebola_notices >= 2 89 && (debug_issue_ebola_notices >= 2
87 || XREALINT (obj1) == XREALINT (obj2))) 90 || XREALINT (obj1) == XREALINT (obj2)))
88 { 91 {
92 #if 0
93 /*#ifndef LRECORD_SYMBOL*/
89 struct backtrace *bt = backtrace_list; 94 struct backtrace *bt = backtrace_list;
90 char *p; 95 char *p;
91 /* Continuing the joke by printing `Ebola warning!!!' confuses */ 96 /* Continuing the joke by printing `Ebola warning!!!' confuses */
92 /* too many people. The message must be printed because Emacs used */ 97 /* too many people. The message must be printed because Emacs used */
93 /* to work differently for two decades. */ 98 /* to work differently for two decades. */
94 #ifndef LRECORD_SYMBOL
95 /* temporary hack that will probably be around too long -slb */ 99 /* temporary hack that will probably be around too long -slb */
96 if (XTYPE(*bt->function) == Lisp_Symbol) 100 if (XTYPE(*bt->function) == Lisp_Symbol)
97 { 101 {
98 p = (XSYMBOL(*bt->function)->name)->_data; 102 p = (XSYMBOL(*bt->function)->name)->_data;
99 if (!strcmp(p, "byte-compile-constant") || 103 if (!strcmp(p, "byte-compile-constant") ||
100 !strcmp(p, "byte-compile-constants-vector") || 104 !strcmp(p, "byte-compile-constants-vector") ||
101 !strcmp(p, "byte-optimize-minus") || 105 !strcmp(p, "byte-optimize-minus") ||
102 !strcmp(p, "byte-optimize-plus") || 106 !strcmp(p, "byte-optimize-plus") ||
103 !strcmp(p, "byte-decompile-bytecode-1")) goto sc; 107 !strcmp(p, "byte-decompile-bytecode-1") ||
108 !strcmp(p, "byte-optimize-logmumble") ||
109 !strcmp(p, "byte-compile-push-constant")) goto sc;
104 } 110 }
105 #endif 111 #endif
106 stderr_out("Comparison between integer and character is constant nil ("); 112 stderr_out("Comparison between integer and character is constant nil (");
107 Fprinc (obj1, Qexternal_debugging_output); 113 Fprinc (obj1, Qexternal_debugging_output);
108 stderr_out (" and "); 114 stderr_out (" and ");