/[cmucl]/src/lisp/gencgc.c
ViewVC logotype

Diff of /src/lisp/gencgc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.64 by rtoy, Mon May 16 13:16:11 2005 UTC revision 1.65 by rtoy, Mon May 23 13:41:23 2005 UTC
# Line 3470  free_hash_entry (struct hash_table *hash Line 3470  free_hash_entry (struct hash_table *hash
3470        unsigned count = fixnum_value (hash_table->number_entries);        unsigned count = fixnum_value (hash_table->number_entries);
3471        gc_assert (count > 0);        gc_assert (count > 0);
3472        hash_table->number_entries = make_fixnum (count - 1);        hash_table->number_entries = make_fixnum (count - 1);
3473        next_vector[kv_index] = hash_table->next_free_kv;        next_vector[kv_index] = fixnum_value (hash_table->next_free_kv);
3474        hash_table->next_free_kv = make_fixnum (kv_index);        hash_table->next_free_kv = make_fixnum (kv_index);
3475      }      }
3476  }  }

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

  ViewVC Help
Powered by ViewVC 1.1.5