Changeset 9554 for branches

Timestamp:

May 20, 2008, 1:57:23 AM (17 years ago)

Author:

Gary Byers

Message:

Try to suppress compiler warnings, but it may be a losing battle.

File:

• branches/win64/lisp-kernel/x86-gc.c (modified) (4 diffs)

branches/win64/lisp-kernel/x86-gc.c

@@ -127 +127 @@
   if ((!nodeheader_tag_p(header_tag)) &&
       (!immheader_tag_p(header_tag))) {
-    Bug(NULL,"Vector at 0x%lx has bogus header : 0x%lx", n, header);
+    Bug(NULL,"Vector at 0x%Ix has bogus header : 0x%Ix", n, header);
   }
   return;
@@ -413 +413 @@
   int tag_n = fulltag_of(n);
   bitvector markbits = GCmarkbits;
-  natural dnode, bits, *bitsp, mask, original_n = n;
+  natural dnode, bits, *bitsp, mask;
 
   if (!is_node_fulltag(tag_n)) {
@@ -1442 +1442 @@
     /* keep track of whether or not we saw any
        code_vector headers, and only flush cache if so. */
-  Boolean GCrelocated_code_vector = false;
 
   if (dnode < GCndnodes_in_area) {
@@ -1748 +1747 @@
 {
   LispObj obj = *ref, header, new;
-  natural tag = fulltag_of(obj), header_tag, header_subtag;
+  natural tag = fulltag_of(obj), header_tag;
   Boolean changed = false;