Changeset 15144


Ignore:
Timestamp:
Dec 18, 2011, 5:08:12 AM (8 years ago)
Author:
gb
Message:

In mark_weak_alist(), we want to check if the pair (not its fulltag)
is in the GC area.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/gc-common.c

    r15014 r15144  
    473473    pair_tag = fulltag_of(pair);
    474474    if ((is_node_fulltag(pair_tag)) &&
    475         ((dnode = gc_area_dnode(pair_tag)) < GCndnodes_in_area) &&
     475        ((dnode = gc_area_dnode(pair)) < GCndnodes_in_area) &&
    476476        (! ref_bit(markbits,dnode))) {
    477477      if (pair_tag == fulltag_cons) {
Note: See TracChangeset for help on using the changeset viewer.