Changeset 9468 for branches

Timestamp:

May 13, 2008, 7:21:50 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Correct off-by-one bug in update_self_references.

(You'd think I could write this routine correctly after three times...)

File:

• branches/ia32/lisp-kernel/x86-gc.c (modified) (1 diff)

branches/ia32/lisp-kernel/x86-gc.c

@@ -2490 +2490 @@
   natural i, offset;
 
-  i = ((unsigned short *)node)[2] - 2;
-  offset = node[i];
+  i = ((unsigned short *)node)[2];
+  offset = node[--i];
   while (offset) {
     *(LispObj *)(p + offset) = fn;