/[guile]/guile/guile-core/libguile/gc.h
ViewVC logotype

Diff of /guile/guile-core/libguile/gc.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.90 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC revision 1.91 by xxhanwen, Sun Jul 21 17:46:23 2002 UTC
# Line 80  typedef scm_t_cell * SCM_CELLPTR; Line 80  typedef scm_t_cell * SCM_CELLPTR;
80  #  define PTR2SCM(x) (SCM_PACK ((scm_t_bits) (x)))  #  define PTR2SCM(x) (SCM_PACK ((scm_t_bits) (x)))
81  #endif /* def _UNICOS */  #endif /* def _UNICOS */
82    
 #ifdef GENGC  
 /*  
   TODO  
  */  
 #else /* ! genGC */  
   
83  #define SCM_GC_CARD_N_HEADER_CELLS 1  #define SCM_GC_CARD_N_HEADER_CELLS 1
84  #define SCM_GC_CARD_N_CELLS        256  #define SCM_GC_CARD_N_CELLS        256
85    
 #define SCM_GC_CARD_GENERATION(card)    
 #define SCM_GC_FLAG_OBJECT_WRITE(x)    
   
86  #define SCM_GC_CARD_BVEC(card)  ((scm_t_c_bvec_limb *) ((card)->word_0))  #define SCM_GC_CARD_BVEC(card)  ((scm_t_c_bvec_limb *) ((card)->word_0))
87  #define SCM_GC_SET_CARD_BVEC(card, bvec) \  #define SCM_GC_SET_CARD_BVEC(card, bvec) \
88      ((card)->word_0 = (scm_t_bits) (bvec))      ((card)->word_0 = (scm_t_bits) (bvec))
 #endif  
89    
90    
91  #define SCM_GC_CARD_SIZE           (SCM_GC_CARD_N_CELLS * sizeof (scm_t_cell))  #define SCM_GC_CARD_SIZE           (SCM_GC_CARD_N_CELLS * sizeof (scm_t_cell))

Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26