Changeset 13129

Timestamp:

Oct 29, 2009, 2:37:09 PM (15 years ago)

Author:

Gary Byers

Message:

PPC write-barrier changes in pc_luser_xp(), too.

File:

• branches/purify/source/lisp-kernel/ppc-exceptions.c (modified) (1 diff)

branches/purify/source/lisp-kernel/ppc-exceptions.c

@@ -1984 +1984 @@
     }
     if (need_check_memo) {
-      natural  bitnumber = area_dnode(ea, lisp_global(HEAP_START));
+      natural  bitnumber = area_dnode(ea, lisp_global(REF_BASE));
       if ((bitnumber < lisp_global(OLDSPACE_DNODE_COUNT)) &&
           ((LispObj)ea < val)) {
         atomic_set_bit(refbits, bitnumber);
         if (need_memoize_root) {
-          bitnumber = area_dnode(root, lisp_global(HEAP_START));
+          bitnumber = area_dnode(root, lisp_global(REF_BASE));
           atomic_set_bit(refbits, bitnumber);
         }