# HG changeset patch
# User ben
# Date 1128046508 0
# Node ID 0612d54a372a02d78dbe14c6b8ff583783048f83
# Parent  bcbe7794aa6fbb07a736e865fb0a3546de4412e8
[xemacs-hg @ 2005-09-30 02:15:06 by ben]
fix --disable-debug error

alloca.c: Don't declare a variable `register' when it can be passed to
	xfree(), which may take its address.
	new -> new_.

diff -r bcbe7794aa6f -r 0612d54a372a src/ChangeLog
--- a/src/ChangeLog	Thu Sep 29 21:51:08 2005 +0000
+++ b/src/ChangeLog	Fri Sep 30 02:15:08 2005 +0000
@@ -1,3 +1,33 @@
+2005-09-29  Ben Wing  <ben@xemacs.org>
+
+	* alloca.c (xemacs_c_alloca):
+	Don't declare a variable `register' when it can be passed to
+	xfree(), which may take its address.
+
+	new -> new_.
+
+2005-09-27  Ben Wing  <ben@xemacs.org>
+
+	* alloc.c (garbage_collect_1):
+	Avoid use of reserved C++ `catch'.
+	
+	* alloc.c:
+	* alloc.c (gc_plist_hack):
+	* alloc.c (HACK_O_MATIC):
+	* alloc.c (Fgarbage_collect):
+	* alloc.c (Ftotal_memory_usage):
+	* alloc.c (Flisp_object_memory_usage):
+	* alloc.c (recompute_need_to_garbage_collect):
+	* alloc.c (common_init_alloc_early):
+	* alloc.c (syms_of_alloc):
+	* alloc.c (vars_of_alloc):
+	Rename underused `memory-usage' to `total-memory-usage'.
+	Add `lisp-object-memory-usage'.  Reimplement `gc-cons-percentage'
+	to be a percentage of total Lisp object allocation (not total
+	memory of all sorts, which is hard to calculate in any case) and
+	give it a preliminary value of 40%.  Use EMACS_INT instead of
+	int in a couple of places.
+
 2005-09-26  Marcus Crestani  <crestani@xemacs.org>
 
 	* symbols.c (check_module_subr): Fix new allocator's module
diff -r bcbe7794aa6f -r 0612d54a372a src/alloca.c
--- a/src/alloca.c	Thu Sep 29 21:51:08 2005 +0000
+++ b/src/alloca.c	Fri Sep 30 02:15:08 2005 +0000
@@ -143,7 +143,7 @@
      was allocated from deeper in the stack than currently. */
 
   {
-    register header *hp;	/* Traverses linked list.  */
+    header *hp;	/* Traverses linked list.  */
 
     for (hp = last_alloca_header; hp != NULL;)
       if ((STACK_DIR > 0 && hp->h.deep > depth)
@@ -177,20 +177,20 @@
 
   {
 #ifdef emacs
-    register pointer new = xmalloc (sizeof (header) + size);
+    register pointer new_ = xmalloc (sizeof (header) + size);
 #else
-    register pointer new = malloc (sizeof (header) + size);
+    register pointer new_ = malloc (sizeof (header) + size);
 #endif
     /* Address of header.  */
 
-    ((header *) new)->h.next = last_alloca_header;
-    ((header *) new)->h.deep = depth;
+    ((header *) new_)->h.next = last_alloca_header;
+    ((header *) new_)->h.deep = depth;
 
-    last_alloca_header = (header *) new;
+    last_alloca_header = (header *) new_;
 
     /* User storage begins just after header.  */
 
-    return (pointer) ((char *) new + sizeof (header));
+    return (pointer) ((char *) new_ + sizeof (header));
   }
 }