Changeset 15144

Timestamp:

Dec 17, 2011, 9:08:12 PM (13 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/lisp-kernel/gc-common.c (modified) (1 diff)

trunk/source/lisp-kernel/gc-common.c

@@ -473 +473 @@
     pair_tag = fulltag_of(pair);
     if ((is_node_fulltag(pair_tag)) &&
-        ((dnode = gc_area_dnode(pair_tag)) < GCndnodes_in_area) &&
+        ((dnode = gc_area_dnode(pair)) < GCndnodes_in_area) &&
         (! ref_bit(markbits,dnode))) {
       if (pair_tag == fulltag_cons) {