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

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

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

revision 1.3 by hanwen, Thu Aug 8 19:47:31 2002 UTC revision 1.4 by hanwen, Wed Aug 28 23:13:30 2002 UTC
# Line 63  Line 63 
63  #define SCM_HEAP_SEG_SIZE (16384L * sizeof (scm_t_cell))  #define SCM_HEAP_SEG_SIZE (16384L * sizeof (scm_t_cell))
64    
65    
66  #define DOUBLECELL_ALIGNED_P(x)  (((2 * sizeof (scm_t_cell) - 1) & SCM_UNPACK (x)) == 0)  #define SCM_DOUBLECELL_ALIGNED_P(x)  (((2 * sizeof (scm_t_cell) - 1) & SCM_UNPACK (x)) == 0)
67    
68    
69    #define SCM_GC_CARD_BVEC_SIZE_IN_LONGS \
70        ((SCM_GC_CARD_N_CELLS + SCM_C_BVEC_LONG_BITS - 1) / SCM_C_BVEC_LONG_BITS)
71    #define SCM_GC_IN_CARD_HEADERP(x) \
72      (scm_t_cell *) (x) <  SCM_GC_CELL_CARD (x) + SCM_GC_CARD_N_HEADER_CELLS
73    
74    
75  int scm_getenv_int (const char *var, int def);  int scm_getenv_int (const char *var, int def);
# Line 204  extern scm_t_heap_segment ** scm_i_heap_ Line 208  extern scm_t_heap_segment ** scm_i_heap_
208  extern size_t scm_i_heap_segment_table_size;  extern size_t scm_i_heap_segment_table_size;
209    
210    
211  int scm_init_card_freelist (scm_t_cell * card, SCM *free_list,int);  int scm_i_init_card_freelist (scm_t_cell * card, SCM *free_list,scm_t_heap_segment*);
212  int scm_i_sweep_card (scm_t_cell * card, SCM *free_list,int);  int scm_i_sweep_card (scm_t_cell * card, SCM *free_list, scm_t_heap_segment*);
213  int scm_i_initialize_heap_segment_data (scm_t_heap_segment * segment, size_t requested);  int scm_i_initialize_heap_segment_data (scm_t_heap_segment * segment, size_t requested);
214  int scm_i_segment_card_count (scm_t_heap_segment * seg);  int scm_i_segment_card_count (scm_t_heap_segment * seg);
215  int scm_i_segment_cell_count (scm_t_heap_segment * seg);  int scm_i_segment_cell_count (scm_t_heap_segment * seg);

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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