Changeset 9553


Ignore:
Timestamp:
May 20, 2008, 8:56:42 AM (11 years ago)
Author:
gb
Message:

Remove some unused variables.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/lisp-kernel/gc-common.c

    r8561 r9553  
    280280  hash_table_vector_header *hashp = (hash_table_vector_header *)(untag(htabv));
    281281  natural
    282     dnode,
    283282    npairs = (header_element_count(hashp->header) -
    284283              (hash_table_vector_header_count - 1)) >> 1;
    285   LispObj *pairp = (LispObj*) (hashp+1), weakelement;
     284  LispObj *pairp = (LispObj*) (hashp+1);
    286285  Boolean
    287286    weak_on_value = ((hashp->flags & nhash_weak_value_mask) != 0);
    288   bitvector markbits = GCmarkbits;
    289   int tag;
     287
    290288
    291289  for (i = 2; i <= skip; i++) {
     
    423421  LispObj this, header, pending;
    424422  int subtag;
    425   bitvector markbits = GCmarkbits;
    426423  hash_table_vector_header *hashp;
    427424  Boolean marked_new;
     
    448445        }
    449446      } else if (subtag == subtag_hash_vector) {
    450         natural elements = header_element_count(header), i;
     447        natural elements = header_element_count(header);
    451448
    452449        hashp = (hash_table_vector_header *) ptr_from_lispobj(untag(this));
     
    507504  LispObj this, header, pending = 0;
    508505  int subtag;
    509   bitvector markbits = GCmarkbits;
    510   hash_table_vector_header *hashp;
    511506  Boolean marked_new;
    512507
     
    925920reclaim_static_dnodes()
    926921{
    927   natural nstatic = tenured_area->static_dnodes, i, bits, mask, bitnum;
     922  natural nstatic = tenured_area->static_dnodes, i, bits, bitnum;
    928923  cons *c = (cons *)tenured_area->low, *d;
    929924  bitvector bitsp = GCmarkbits;
     
    1002997gc(TCR *tcr, signed_natural param)
    1003998{
    1004   xframe_list *xframes = (tcr->xframe);
    1005999  struct timeval start, stop;
    10061000  area *a = active_dynamic_area, *to = NULL, *from = NULL, *note = NULL;
    10071001  unsigned timeidx = 1;
    10081002  paging_info paging_info_start;
    1009   xframe_list *x;
    10101003  LispObj
    10111004    pkg,
     
    12341227        sym = *raw;
    12351228        if (is_symbol_fulltag(sym)) {
    1236           lispsymbol *rawsym = (lispsymbol *)ptr_from_lispobj(untag(sym));
    12371229          natural dnode = gc_area_dnode(sym);
    12381230
Note: See TracChangeset for help on using the changeset viewer.