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

Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 3bb7ccffb0c0
children 15872534500d
line wrap: on
line diff
--- a/src/data.c	Mon Aug 13 09:41:47 2007 +0200
+++ b/src/data.c	Mon Aug 13 09:42:26 2007 +0200
@@ -77,7 +77,10 @@
 
 int debug_ebola_backtrace_length;
 
+#if 0
+/*#ifndef LRECORD_SYMBOL*/
 #include "backtrace.h"
+#endif
 
 int
 eq_with_ebola_notice (Lisp_Object obj1, Lisp_Object obj2)
@@ -86,12 +89,13 @@
       && (debug_issue_ebola_notices >= 2
 	  || XREALINT (obj1) == XREALINT (obj2)))
     {
+#if 0
+/*#ifndef LRECORD_SYMBOL*/
       struct backtrace *bt = backtrace_list;
       char *p;
       /* Continuing the joke by printing `Ebola warning!!!' confuses */
       /* too many people.  The message must be printed because Emacs used */
       /* to work differently for two decades. */
-#ifndef LRECORD_SYMBOL
       /* temporary hack that will probably be around too long -slb */
       if (XTYPE(*bt->function) == Lisp_Symbol)
 	{
@@ -100,7 +104,9 @@
 	      !strcmp(p, "byte-compile-constants-vector") ||
 	      !strcmp(p, "byte-optimize-minus") ||
 	      !strcmp(p, "byte-optimize-plus") ||
-	      !strcmp(p, "byte-decompile-bytecode-1")) goto sc;
+	      !strcmp(p, "byte-decompile-bytecode-1") ||
+	      !strcmp(p, "byte-optimize-logmumble") ||
+	      !strcmp(p, "byte-compile-push-constant")) goto sc;
 	}
 #endif
       stderr_out("Comparison between integer and character is constant nil (");