/[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.100 by rtoy, Mon Nov 2 02:51:58 2009 UTC revision 1.101 by rtoy, Mon Nov 2 15:05:07 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    
 #ifdef KEY  
3993          if (((weak == KEY)          if (((weak == KEY)
3994               && removable_weak_key(old_key, index_value,               && removable_weak_key(old_key, index_value,
3995                                     eq_hash_p))                                     eq_hash_p))
# Line 4003  scav_hash_entries(struct hash_table *has Line 4002  scav_hash_entries(struct hash_table *has
4002              if (removep) {              if (removep) {
4003                  free_hash_entry(hash_table, old_index, i);                  free_hash_entry(hash_table, old_index, i);
4004              }              }
4005          } else          } else {
 #endif  
           {  
4006              /* If the key is EQ-hashed and moves, schedule it for rehashing. */              /* If the key is EQ-hashed and moves, schedule it for rehashing. */
4007              scavenge(&kv_vector[2 * i], 2);              scavenge(&kv_vector[2 * i], 2);
4008  #if 0  #if 0
# Line 4072  scav_weak_entries(struct hash_table *has Line 4069  scav_weak_entries(struct hash_table *has
4069          boolean value_survives = weak_value_survives(value);          boolean value_survives = weak_value_survives(value);
4070    
4071    
 #ifdef KEY  
4072          if ((hash_table->weak_p == KEY)          if ((hash_table->weak_p == KEY)
4073              && key_survives              && key_survives
4074              && !survives_gc(value)) {              && !survives_gc(value)) {
# Line 4115  scav_weak_entries(struct hash_table *has Line 4111  scav_weak_entries(struct hash_table *has
4111                  scavenged = 1;                  scavenged = 1;
4112              }              }
4113          }          }
 #endif  
4114      }      }
4115    
4116      return scavenged;      return scavenged;

Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101

  ViewVC Help
Powered by ViewVC 1.1.5