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 |
|
|
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 |
|
|