Index: /branches/win64/lisp-kernel/x86-gc.c
===================================================================
--- /branches/win64/lisp-kernel/x86-gc.c	(revision 9553)
+++ /branches/win64/lisp-kernel/x86-gc.c	(revision 9554)
@@ -127,5 +127,5 @@
   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,5 +413,5 @@
   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,5 +1442,4 @@
     /* 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,5 +1747,5 @@
 {
   LispObj obj = *ref, header, new;
-  natural tag = fulltag_of(obj), header_tag, header_subtag;
+  natural tag = fulltag_of(obj), header_tag;
   Boolean changed = false;