Changeset 8473


Ignore:
Timestamp:
Feb 12, 2008, 3:01:01 PM (12 years ago)
Author:
gb
Message:

forward_gcable_ptrs: don't write if no change.

File:
1 edited

Legend:

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

    r8420 r8473  
    815815forward_gcable_ptrs()
    816816{
    817   LispObj *prev = &(lisp_global(GCABLE_POINTERS)), next;
     817  LispObj *prev = &(lisp_global(GCABLE_POINTERS)), next, new;
    818818
    819819  while ((next = *prev) != (LispObj)NULL) {
    820     *prev = node_forwarding_address(next);
     820    new = node_forwarding_address(next);
     821    if (new != next) {
     822      *prev = new;
     823    }
    821824    prev = &(((xmacptr *)ptr_from_lispobj(untag(next)))->link);
    822825  }
Note: See TracChangeset for help on using the changeset viewer.