Changeset 7628


Ignore:
Timestamp:
Nov 10, 2007, 7:47:37 PM (12 years ago)
Author:
gb
Message:

Add protototypes for variables(at least) defined in gc-common.c.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/gc.h

    r7624 r7628  
    9090
    9191
     92#ifdef fulltag_symbol
     93#define is_symbol_fulltag(x) (fulltag_of(x) == fulltag_symbol)
     94#else
     95#define is_symbol_fulltag(x) (fulltag_of(x) == fulltag_misc)
     96#endif
     97
    9298#define area_dnode(w,low) ((natural)(((ptr_to_lispobj(w)) - ptr_to_lispobj(low))>>dnode_shift))
    9399#define gc_area_dnode(w)  area_dnode(w,GCarealow)
     
    122128#define GC_TRAP_FUNCTION_THAW 130
    123129
     130Boolean GCDebug, GCverbose, just_purified_p;
     131bitvector GCmarkbits, GCdynamic_markbits;
     132LispObj GCarealow, GCareadynamiclow;
     133natural GCndnodes_in_area, GCndynamic_dnodes_in_area;
     134LispObj GCweakvll;
     135LispObj GCephemeral_low;
     136natural GCn_ephemeral_dnodes;
     137natural GCstack_limit;
     138
     139#if WORD_SIZE == 64
     140unsigned short *_one_bits;
     141#else
     142const unsigned char _one_bits[256];
     143#endif
     144
     145#define one_bits(x) _one_bits[x]
     146
     147
    124148#endif                          /* __GC_H__ */
Note: See TracChangeset for help on using the changeset viewer.