/[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.99 by rtoy, Tue Jul 7 17:09:17 2009 UTC revision 1.99.8.1 by rtoy, Mon Nov 2 14:29:47 2009 UTC
# Line 3990  scav_hash_entries(struct hash_table *has Line 3990  scav_hash_entries(struct hash_table *has
3990          boolean eq_hash_p = eq_based_hash_vector(hash_vector, i);          boolean eq_hash_p = eq_based_hash_vector(hash_vector, i);
3991          unsigned int index_value = index_vector[old_index];          unsigned int index_value = index_vector[old_index];
3992    
3993    #ifdef KEY
3994          if (((weak == KEY)          if (((weak == KEY)
3995               && removable_weak_key(old_key, index_value,               && removable_weak_key(old_key, index_value,
3996                                     eq_hash_p))                                     eq_hash_p))
# Line 4002  scav_hash_entries(struct hash_table *has Line 4003  scav_hash_entries(struct hash_table *has
4003              if (removep) {              if (removep) {
4004                  free_hash_entry(hash_table, old_index, i);                  free_hash_entry(hash_table, old_index, i);
4005              }              }
4006          } else {          } else
4007    #endif
4008              {
4009              /* If the key is EQ-hashed and moves, schedule it for rehashing. */              /* If the key is EQ-hashed and moves, schedule it for rehashing. */
4010              scavenge(&kv_vector[2 * i], 2);              scavenge(&kv_vector[2 * i], 2);
4011  #if 0  #if 0
# Line 4069  scav_weak_entries(struct hash_table *has Line 4072  scav_weak_entries(struct hash_table *has
4072          boolean value_survives = weak_value_survives(value);          boolean value_survives = weak_value_survives(value);
4073    
4074    
4075    #ifdef KEY
4076          if ((hash_table->weak_p == KEY)          if ((hash_table->weak_p == KEY)
4077              && key_survives              && key_survives
4078              && !survives_gc(value)) {              && !survives_gc(value)) {
# Line 4111  scav_weak_entries(struct hash_table *has Line 4115  scav_weak_entries(struct hash_table *has
4115                  scavenged = 1;                  scavenged = 1;
4116              }              }
4117          }          }
4118    #endif
4119      }      }
4120    
4121      return scavenged;      return scavenged;

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.99.8.1

  ViewVC Help
Powered by ViewVC 1.1.5