Changeset 13129


Ignore:
Timestamp:
Oct 29, 2009, 9:37:09 PM (10 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/purify/source/lisp-kernel/ppc-exceptions.c

    r12665 r13129  
    19841984    }
    19851985    if (need_check_memo) {
    1986       natural  bitnumber = area_dnode(ea, lisp_global(HEAP_START));
     1986      natural  bitnumber = area_dnode(ea, lisp_global(REF_BASE));
    19871987      if ((bitnumber < lisp_global(OLDSPACE_DNODE_COUNT)) &&
    19881988          ((LispObj)ea < val)) {
    19891989        atomic_set_bit(refbits, bitnumber);
    19901990        if (need_memoize_root) {
    1991           bitnumber = area_dnode(root, lisp_global(HEAP_START));
     1991          bitnumber = area_dnode(root, lisp_global(REF_BASE));
    19921992          atomic_set_bit(refbits, bitnumber);
    19931993        }
Note: See TracChangeset for help on using the changeset viewer.