Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents f913c1545598
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
2034 flush_cached_extent_info (XCAR (XSTRING_PLIST (obj))); 2034 flush_cached_extent_info (XCAR (XSTRING_PLIST (obj)));
2035 return XSTRING_PLIST (obj); 2035 return XSTRING_PLIST (obj);
2036 } 2036 }
2037 2037
2038 static int 2038 static int
2039 string_equal (Lisp_Object obj1, Lisp_Object obj2, int depth) 2039 string_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth))
2040 { 2040 {
2041 Bytecount len; 2041 Bytecount len;
2042 return (((len = XSTRING_LENGTH (obj1)) == XSTRING_LENGTH (obj2)) && 2042 return (((len = XSTRING_LENGTH (obj1)) == XSTRING_LENGTH (obj2)) &&
2043 !memcmp (XSTRING_DATA (obj1), XSTRING_DATA (obj2), len)); 2043 !memcmp (XSTRING_DATA (obj1), XSTRING_DATA (obj2), len));
2044 } 2044 }
3530 3530
3531 /* Mark reference to a Lisp_Object. If the object referred to has not been 3531 /* Mark reference to a Lisp_Object. If the object referred to has not been
3532 seen yet, recursively mark all the references contained in it. */ 3532 seen yet, recursively mark all the references contained in it. */
3533 3533
3534 void 3534 void
3535 mark_object (Lisp_Object obj) 3535 mark_object (
3536 #ifdef USE_KKCC
3537 Lisp_Object UNUSED (obj)
3538 #else
3539 Lisp_Object obj
3540 #endif
3541 )
3536 { 3542 {
3537 #ifdef USE_KKCC 3543 #ifdef USE_KKCC
3538 /* this code should never be reached when configured for KKCC */ 3544 /* this code should never be reached when configured for KKCC */
3539 stderr_out ("KKCC: Invalid mark_object call.\n"); 3545 stderr_out ("KKCC: Invalid mark_object call.\n");
3540 stderr_out ("Replace mark_object with kkcc_gc_stack_push_lisp_object.\n"); 3546 stderr_out ("Replace mark_object with kkcc_gc_stack_push_lisp_object.\n");
5127 2 * sizeof (void *), is required as overhead and that 5133 2 * sizeof (void *), is required as overhead and that
5128 blocks are allocated in the minimum required size except 5134 blocks are allocated in the minimum required size except
5129 that some minimum block size is imposed (e.g. 16 bytes). */ 5135 that some minimum block size is imposed (e.g. 16 bytes). */
5130 5136
5131 Bytecount 5137 Bytecount
5132 malloced_storage_size (void *ptr, Bytecount claimed_size, 5138 malloced_storage_size (void *UNUSED (ptr), Bytecount claimed_size,
5133 struct overhead_stats *stats) 5139 struct overhead_stats *stats)
5134 { 5140 {
5135 Bytecount orig_claimed_size = claimed_size; 5141 Bytecount orig_claimed_size = claimed_size;
5136 5142
5137 #ifdef GNU_MALLOC 5143 #ifdef GNU_MALLOC