[git] CMU Common Lisp branch master updated. snapshot-2013-06-3-gd2e0e8e
Raymond Toy
rtoy at common-lisp.net
Tue Jul 2 03:20:12 UTC 2013
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".
The branch, master has been updated
via d2e0e8e2e96eb30a54d9649cb5d757e44a64f71b (commit)
from d671c3595768543efbf2b01ddac321c9d87936af (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit d2e0e8e2e96eb30a54d9649cb5d757e44a64f71b
Author: Raymond Toy <toy.raymond at gmail.com>
Date: Mon Jul 1 20:20:05 2013 -0700
Fix some compiler warnings about unused variables or variables that
are set but never used.
diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c
index 6909292..9caae2d 100644
--- a/src/lisp/gencgc.c
+++ b/src/lisp/gencgc.c
@@ -223,7 +223,7 @@ check_escaped_stack_object(lispobj * where, lispobj obj)
if (!(ex)) gc_abort (); \
} while (0)
#else
-#define gc_assert(ex) (void) 0
+#define gc_assert(ex) (void) (ex)
#endif
@@ -807,8 +807,10 @@ print_generation_stats(int verbose)
}
}
+#ifdef GC_ASSERTIONS
gc_assert(generations[i].bytes_allocated ==
generation_bytes_allocated(i));
+#endif
fprintf(stderr, " %5d: %5d %5d %5d %5d %10d %6d %10d %4d %3d %7.4f\n",
i, boxed_cnt, unboxed_cnt, large_boxed_cnt, large_unboxed_cnt,
generations[i].bytes_allocated,
@@ -3249,11 +3251,13 @@ static void
apply_code_fixups(struct code *old_code, struct code *new_code)
{
int nheader_words, ncode_words, nwords;
+ char *code_start_addr;
+#ifdef DEBUG_APPLY_CODE_FIXUPS
char *constants_start_addr, *constants_end_addr;
- char *code_start_addr, *code_end_addr;
+ char *code_end_addr;
+#endif
lispobj fixups = NIL;
unsigned long displacement =
-
(unsigned long) new_code - (unsigned long) old_code;
struct vector *fixups_vector;
@@ -3262,8 +3266,8 @@ apply_code_fixups(struct code *old_code, struct code *new_code)
* be a fixnum if it's x86 compiled code - check.
*/
if (new_code->trace_table_offset & 0x3) {
-#if 0
- fprintf(stderr, "*** Byte compiled code object at %x.\n", new_code);
+#ifdef DEBUG_APPLY_CODE_FIXUPS
+ fprintf(stderr, "*** Byte compiled code object at %p.\n", new_code);
#endif
return;
}
@@ -3272,18 +3276,18 @@ apply_code_fixups(struct code *old_code, struct code *new_code)
ncode_words = fixnum_value(new_code->code_size);
nheader_words = HeaderValue(*(lispobj *) new_code);
nwords = ncode_words + nheader_words;
-#if 0
+#ifdef DEBUG_APPLY_CODE_FIXUPS
fprintf(stderr,
- "*** Compiled code object at %x: header_words=%d code_words=%d .\n",
+ "*** Compiled code object at %p: header_words=%d code_words=%d .\n",
new_code, nheader_words, ncode_words);
#endif
+ code_start_addr = (char *) new_code + nheader_words * sizeof(lispobj);
+#ifdef DEBUG_APPLY_CODE_FIXUPS
constants_start_addr = (char *) new_code + 5 * sizeof(lispobj);
constants_end_addr = (char *) new_code + nheader_words * sizeof(lispobj);
- code_start_addr = (char *) new_code + nheader_words * sizeof(lispobj);
code_end_addr = (char *) new_code + nwords * sizeof(lispobj);
-#if 0
fprintf(stderr,
- "*** Const. start = %x; end= %x; Code start = %x; end = %x\n",
+ "*** Const. start = %p; end= %p; Code start = %p; end = %p\n",
constants_start_addr, constants_end_addr, code_start_addr,
code_end_addr);
#endif
@@ -3303,13 +3307,13 @@ apply_code_fixups(struct code *old_code, struct code *new_code)
if (check_code_fixups)
sniff_code_object(new_code, displacement);
-#if 0
+#ifdef DEBUG_APPLY_CODE_FIXUPS
fprintf(stderr, "Fixups for code object not found!?\n");
fprintf(stderr,
- "*** Compiled code object at %x: header_words=%d code_words=%d .\n",
+ "*** Compiled code object at %p: header_words=%d code_words=%d .\n",
new_code, nheader_words, ncode_words);
fprintf(stderr,
- "*** Const. start = %x; end= %x; Code start = %x; end = %x\n",
+ "*** Const. start = %p; end= %p; Code start = %p; end = %p\n",
constants_start_addr, constants_end_addr, code_start_addr,
code_end_addr);
#endif
@@ -3321,13 +3325,13 @@ apply_code_fixups(struct code *old_code, struct code *new_code)
/* Could be pointing to a forwarding pointer. */
if (Pointerp(fixups) && find_page_index((void *) fixups_vector) != -1
&& fixups_vector->header == 0x01) {
-#if 0
+#ifdef DEBUG_APPLY_CODE_FIXUPS
fprintf(stderr, "* FF\n");
#endif
/* If so then follow it. */
fixups_vector = (struct vector *) PTR((lispobj) fixups_vector->length);
}
-#if 0
+#ifdef DEBUG_APPLY_CODE_FIXUPS
fprintf(stderr, "Got the fixups\n");
#endif
@@ -4386,7 +4390,9 @@ scav_hash_entries(struct hash_table *hash_table, lispobj weak, int removep)
{
unsigned kv_length;
lispobj *kv_vector;
+#ifdef DEBUG_SCAV_HASH_ENTRIES
lispobj empty_symbol;
+#endif
unsigned *index_vector, *next_vector, *hash_vector;
unsigned length = UINT_MAX;
unsigned next_vector_length = UINT_MAX;
@@ -4396,7 +4402,9 @@ scav_hash_entries(struct hash_table *hash_table, lispobj weak, int removep)
kv_length = fixnum_value(kv_vector[1]);
kv_vector += 2;
+#ifdef DEBUG_SCAV_HASH_ENTRIES
empty_symbol = kv_vector[1];
+#endif
index_vector = u32_vector(hash_table->index_vector, &length);
next_vector = u32_vector(hash_table->next_vector, &next_vector_length);
@@ -4430,7 +4438,7 @@ scav_hash_entries(struct hash_table *hash_table, lispobj weak, int removep)
} else {
/* If the key is EQ-hashed and moves, schedule it for rehashing. */
scavenge(&kv_vector[2 * i], 2);
-#if 0
+#ifdef DEBUG_SCAV_HASH_ENTRIES
new_key = kv_vector[2 * i];
new_index = EQ_HASH(new_key) % length;
-----------------------------------------------------------------------
Summary of changes:
src/lisp/gencgc.c | 40 ++++++++++++++++++++++++----------------
1 file changed, 24 insertions(+), 16 deletions(-)
hooks/post-receive
--
CMU Common Lisp
More information about the cmucl-cvs
mailing list