Changeset 9553

Timestamp:

May 20, 2008, 1:56:42 AM (17 years ago)

Author:

Gary Byers

Message:

Remove some unused variables.

File:

• branches/win64/lisp-kernel/gc-common.c (modified) (7 diffs)

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

@@ -280 +280 @@
   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 +421 @@
   LispObj this, header, pending;
   int subtag;
-  bitvector markbits = GCmarkbits;
   hash_table_vector_header *hashp;
   Boolean marked_new;
@@ -448 +445 @@
         }
       } 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 +504 @@
   LispObj this, header, pending = 0;
   int subtag;
-  bitvector markbits = GCmarkbits;
-  hash_table_vector_header *hashp;
   Boolean marked_new;
 
@@ -925 +920 @@
 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 +997 @@
 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 +1227 @@
         sym = *raw;
         if (is_symbol_fulltag(sym)) {
-          lispsymbol *rawsym = (lispsymbol *)ptr_from_lispobj(untag(sym));
           natural dnode = gc_area_dnode(sym);