Changeset 8473

Timestamp:

Feb 12, 2008, 7:01:01 AM (17 years ago)

Author:

Gary Byers

Message:

forward_gcable_ptrs: don't write if no change.

File:

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

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

@@ -815 +815 @@
 forward_gcable_ptrs()
 {
-  LispObj *prev = &(lisp_global(GCABLE_POINTERS)), next;
+  LispObj *prev = &(lisp_global(GCABLE_POINTERS)), next, new;
 
   while ((next = *prev) != (LispObj)NULL) {
-    *prev = node_forwarding_address(next);
+    new = node_forwarding_address(next);
+    if (new != next) {
+      *prev = new;
+    }
     prev = &(((xmacptr *)ptr_from_lispobj(untag(next)))->link);
   }