Changeset 9468


Ignore:
Timestamp:
May 14, 2008, 2:21:50 AM (11 years ago)
Author:
rme
Message:

Correct off-by-one bug in update_self_references.

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/lisp-kernel/x86-gc.c

    r9466 r9468  
    24902490  natural i, offset;
    24912491
    2492   i = ((unsigned short *)node)[2] - 2;
    2493   offset = node[i];
     2492  i = ((unsigned short *)node)[2];
     2493  offset = node[--i];
    24942494  while (offset) {
    24952495    *(LispObj *)(p + offset) = fn;
Note: See TracChangeset for help on using the changeset viewer.