Index: /branches/win64/lisp-kernel/gc-common.c
===================================================================
--- /branches/win64/lisp-kernel/gc-common.c	(revision 9552)
+++ /branches/win64/lisp-kernel/gc-common.c	(revision 9553)
@@ -280,12 +280,10 @@
   hash_table_vector_header *hashp = (hash_table_vector_header *)(untag(htabv));
   natural
-    dnode,
     npairs = (header_element_count(hashp->header) - 
               (hash_table_vector_header_count - 1)) >> 1;
-  LispObj *pairp = (LispObj*) (hashp+1), weakelement;
+  LispObj *pairp = (LispObj*) (hashp+1);
   Boolean 
     weak_on_value = ((hashp->flags & nhash_weak_value_mask) != 0);
-  bitvector markbits = GCmarkbits;
-  int tag;
+
 
   for (i = 2; i <= skip; i++) {
@@ -423,5 +421,4 @@
   LispObj this, header, pending;
   int subtag;
-  bitvector markbits = GCmarkbits;
   hash_table_vector_header *hashp;
   Boolean marked_new;
@@ -448,5 +445,5 @@
         }
       } else if (subtag == subtag_hash_vector) {
-        natural elements = header_element_count(header), i;
+        natural elements = header_element_count(header);
 
         hashp = (hash_table_vector_header *) ptr_from_lispobj(untag(this));
@@ -507,6 +504,4 @@
   LispObj this, header, pending = 0;
   int subtag;
-  bitvector markbits = GCmarkbits;
-  hash_table_vector_header *hashp;
   Boolean marked_new;
 
@@ -925,5 +920,5 @@
 reclaim_static_dnodes()
 {
-  natural nstatic = tenured_area->static_dnodes, i, bits, mask, bitnum;
+  natural nstatic = tenured_area->static_dnodes, i, bits,  bitnum;
   cons *c = (cons *)tenured_area->low, *d;
   bitvector bitsp = GCmarkbits;
@@ -1002,10 +997,8 @@
 gc(TCR *tcr, signed_natural param)
 {
-  xframe_list *xframes = (tcr->xframe);
   struct timeval start, stop;
   area *a = active_dynamic_area, *to = NULL, *from = NULL, *note = NULL;
   unsigned timeidx = 1;
   paging_info paging_info_start;
-  xframe_list *x;
   LispObj
     pkg,
@@ -1234,5 +1227,4 @@
         sym = *raw;
         if (is_symbol_fulltag(sym)) {
-          lispsymbol *rawsym = (lispsymbol *)ptr_from_lispobj(untag(sym));
           natural dnode = gc_area_dnode(sym);