/[guile]/guile/guile-core/libguile/gc-card.c
ViewVC logotype

Diff of /guile/guile-core/libguile/gc-card.c

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

revision 1.5 by hanwen, Wed Aug 28 23:13:30 2002 UTC revision 1.6 by hanwen, Thu Sep 5 21:12:21 2002 UTC
# Line 68  Line 68 
68  long int scm_i_deprecated_memory_return;  long int scm_i_deprecated_memory_return;
69    
70    
71    /* During collection, this accumulates structures which are to be freed.
72     */
73    SCM scm_i_structs_to_free;
74    
75    
76  /*  /*
77    Init all the free cells in CARD, prepending to *FREE_LIST.    Init all the free cells in CARD, prepending to *FREE_LIST.
78    
# Line 109  scm_i_sweep_card (scm_t_cell *  p, SCM * Line 114  scm_i_sweep_card (scm_t_cell *  p, SCM *
114              /* Structs need to be freed in a special order.              /* Structs need to be freed in a special order.
115               * This is handled by GC C hooks in struct.c.               * This is handled by GC C hooks in struct.c.
116               */               */
117              SCM_SET_STRUCT_GC_CHAIN (p, scm_structs_to_free);              SCM_SET_STRUCT_GC_CHAIN (p, scm_i_structs_to_free);
118              scm_structs_to_free = scmptr;              scm_i_structs_to_free = scmptr;
119            }            }
120            continue;            continue;
121                

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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