/[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.63 by cshapiro, Sun Feb 6 06:11:00 2005 UTC revision 1.64 by rtoy, Mon May 16 13:16:11 2005 UTC
# Line 3597  scav_weak_entries (struct hash_table *ha Line 3597  scav_weak_entries (struct hash_table *ha
3597    
3598        /* If the key survives, scavenge its value, for the case that        /* If the key survives, scavenge its value, for the case that
3599           the only reference to a key in a weak table is a value in           the only reference to a key in a weak table is a value in
3600           another weak table.  */           another weak table.  Don't scavenge the value twice;
3601             scan_weak_tables calls this function more than once for the
3602             same hash table.  */
3603        if (survives_gc (old_key)        if (survives_gc (old_key)
3604            && index_vector[old_index] != 0            && index_vector[old_index] != 0
3605            && (hash_vector == 0 || hash_vector[old_index] == 0x80000000))            && (hash_vector == 0 || hash_vector[old_index] == 0x80000000)
3606              && !survives_gc (kv_vector[2 * i + 1]))
3607          {          {
3608            scavenge (&kv_vector[2 * i + 1], 1);            scavenge (&kv_vector[2 * i + 1], 1);
3609            scavenged = 1;            scavenged = 1;

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

  ViewVC Help
Powered by ViewVC 1.1.5