Changeset 10082


Ignore:
Timestamp:
Jul 18, 2008, 5:15:28 PM (11 years ago)
Author:
rme
Message:

Changes for x8632.

File:
1 edited

Legend:

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

    r8474 r10082  
    5050                                       (1<<fulltag_function)))
    5151#else
     52#define is_node_fulltag(f)  ((1<<(f))&((1<<fulltag_cons) | \
     53                                       (1<<fulltag_misc) | \
     54                                       (1<<fulltag_tra)))
    5255#endif
    5356#endif
     
    100103#define gc_dynamic_area_dnode(w) area_dnode(w,GCareadynamiclow)
    101104
    102 #ifdef PPC64
     105#if defined(PPC64) || defined(X8632)
    103106#define forward_marker subtag_forward_marker
    104107#else
     
    198201void mark_root(LispObj);
    199202void rmark(LispObj);
     203#ifdef X8632
     204void mark_xp(ExceptionInformation *, natural);
     205#else
    200206void mark_xp(ExceptionInformation *);
     207#endif
    201208LispObj dnode_forwarding_address(natural, int);
    202209LispObj locative_forwarding_address(LispObj);
Note: See TracChangeset for help on using the changeset viewer.