changeset 3176:1c2a4e4e81d9

[xemacs-hg @ 2005-12-25 11:21:45 by aidan] Revert the alloc warning bugfix
author aidan
date Sun, 25 Dec 2005 11:21:46 +0000
parents f102dbecac7b
children 9ee92e18062b
files src/ChangeLog src/alloc.c
diffstat 2 files changed, 27 insertions(+), 28 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Sat Dec 24 22:50:54 2005 +0000
+++ b/src/ChangeLog	Sun Dec 25 11:21:46 2005 +0000
@@ -1,3 +1,12 @@
+2005-12-25  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* alloc.c:
+	* alloc.c (malloc_warning):
+	* alloc.c (MALLOC_BEGIN):
+	* alloc.c (FREE_OR_REALLOC_BEGIN):
+	Revert the alloc warning bugfix, in response to Stephen's mail
+	87acepzl6e.fsf@tleepslib.sk.tsukuba.ac.jp . 
+
 2005-12-24  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* objects-x.c (x_font_instance_truename):
--- a/src/alloc.c	Sat Dec 24 22:50:54 2005 +0000
+++ b/src/alloc.c	Sun Dec 25 11:21:46 2005 +0000
@@ -231,6 +231,22 @@
 }
 #endif /* not MC_ALLOC */
 
+/* malloc calls this if it finds we are near exhausting storage */
+void
+malloc_warning (const char *str)
+{
+  if (ignore_malloc_warnings)
+    return;
+
+  warn_when_safe
+    (Qmemory, Qemergency,
+     "%s\n"
+     "Killing some buffers may delay running out of memory.\n"
+     "However, certainly by the time you receive the 95%% warning,\n"
+     "you should clean up, kill this Emacs, and start a new one.",
+     str);
+}
+
 /* Called if malloc returns zero */
 DOESNT_RETURN
 memory_full (void)
@@ -274,21 +290,18 @@
 }
 
 #ifdef ERROR_CHECK_MALLOC
-static int in_malloc, in_malloc_warning;
+static int in_malloc;
 extern int regex_malloc_disallowed;
 
 #define MALLOC_BEGIN()				\
 do						\
 {						\
-  assert (!in_malloc || in_malloc_warning);	\
+  assert (!in_malloc);				\
   assert (!regex_malloc_disallowed);		\
   in_malloc = 1;				\
 }						\
 while (0)
 
-#define MALLOC_WARNING_BEGIN()	(++in_malloc_warning)
-#define MALLOC_WARNING_END()	(--in_malloc_warning)
-
 #ifdef MC_ALLOC
 #define FREE_OR_REALLOC_BEGIN(block)					\
 do									\
@@ -328,34 +341,11 @@
 #else /* ERROR_CHECK_MALLOC */
 
 #define MALLOC_BEGIN()
-#define MALLOC_WARNING_BEGIN()
-#define MALLOC_WARNING_END()
 #define FREE_OR_REALLOC_BEGIN(block)
 #define MALLOC_END()
 
 #endif /* ERROR_CHECK_MALLOC */
 
-/* malloc calls this if it finds we are near exhausting storage */
-void
-malloc_warning (const char *str)
-{
-  if (ignore_malloc_warnings)
-    return;
-
-  MALLOC_WARNING_BEGIN();
-
-  warn_when_safe
-    (Qmemory, Qemergency,
-     "%s\n"
-     "Killing some buffers may delay running out of memory.\n"
-     "However, certainly by the time you receive the 95%% warning,\n"
-     "you should clean up, kill this Emacs, and start a new one.\n"
-     "On Unix, look into your resource limits; ulimit -d, especially.",
-     str);
-
-  MALLOC_WARNING_END();
-}
-
 static void
 malloc_after (void *val, Bytecount size)
 {