Ignore:
Timestamp:
Feb 22, 2004, 1:27:13 AM (16 years ago)
Author:
gb
Message:

PPC64 changes (some of them rather suspect ...). 32-bit kernel may be a
little funky ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/gc.h

    r12 r557  
    3838
    3939extern LispObj GCarealow;
    40 extern unsigned GCndwords_in_area;
     40extern unsigned GCndnodes_in_area;
    4141extern bitvector GCmarkbits;
    4242LispObj *global_reloctab, *GCrelocptr;
     
    4848void mark_locative_root(LispObj);
    4949void rmark(LispObj);
    50 unsigned skip_over_ivector(unsigned, LispObj);
     50LispObj *skip_over_ivector(LispObj, LispObj);
    5151void mark_simple_area_range(LispObj *,LispObj *);
    5252LispObj calculate_relocation();
     
    6464
    6565
    66 #define area_dword(w,low) ((((LispObj)w) - (LispObj)low)>>3)
    67 #define gc_area_dword(w)  area_dword(w,GCarealow)
     66#define area_dnode(w,low) (((ptr_to_lispobj(w)) - ptr_to_lispobj(low))>>dnode_shift)
     67#define gc_area_dnode(w)  area_dnode(w,GCarealow)
    6868
     69#ifdef PPC64
     70#define forward_marker subtag_forward_marker
     71#else
    6972#define forward_marker fulltag_nil
     73#endif
    7074
    71 #define VOID_ALLOCPTR 0xFFFFFFF8
     75#define VOID_ALLOCPTR ((LispObj)(-dnode_size))
    7276
    7377
Note: See TracChangeset for help on using the changeset viewer.