Changeset 13255

Timestamp:

Dec 4, 2009, 7:39:57 PM (15 years ago)

Author:

Gary Byers

Message:

revert r13254: 'deref(base,1)' and 'deref(n,1)' should have exactly
the same effect.

One could argue that mark_root() and rmark() should (for some reason)
be consistent about this; since 'base' is a dnode-aligned pointer, it's
at least slightly faster to say:

base[1] = lisp_nil;

and not use 'deref' to clear tag bits that're already clear, but the
same word is being set to NIL pre- and post-r13254, so it's misleading
for that change to claim that it causes "the right offset" to be cleared.

File:

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

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

@@ -530 +530 @@
 
       if (subtag == subtag_pool) {
-        deref(n, 1) = lisp_nil;
+        deref(base, 1) = lisp_nil;
       }