136 |
SCM_GC_SET_CELL_WORD (z, 1, cdr); |
SCM_GC_SET_CELL_WORD (z, 1, cdr); |
137 |
SCM_GC_SET_CELL_WORD (z, 0, car); |
SCM_GC_SET_CELL_WORD (z, 0, car); |
138 |
|
|
|
#ifdef USE_THREADS |
|
139 |
#if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS) && !defined(USE_COPT_THREADS) |
#if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS) && !defined(USE_COPT_THREADS) |
140 |
/* When we are using preemtive threads, we might need to make |
/* When we are using preemtive threads, we might need to make |
141 |
sure that the initial values for the slots are protected until |
sure that the initial values for the slots are protected until |
144 |
#error review me |
#error review me |
145 |
scm_remember_upto_here_1 (SCM_PACK (cdr)); |
scm_remember_upto_here_1 (SCM_PACK (cdr)); |
146 |
#endif |
#endif |
|
#endif |
|
147 |
|
|
148 |
|
|
149 |
#if (SCM_DEBUG_CELL_ACCESSES == 1) |
#if (SCM_DEBUG_CELL_ACCESSES == 1) |
185 |
SCM_GC_SET_CELL_WORD (z, 3, cdr); |
SCM_GC_SET_CELL_WORD (z, 3, cdr); |
186 |
SCM_GC_SET_CELL_WORD (z, 0, car); |
SCM_GC_SET_CELL_WORD (z, 0, car); |
187 |
|
|
|
#ifdef USE_THREADS |
|
188 |
#if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS) && !defined(USE_COPT_THREADS) |
#if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS) && !defined(USE_COPT_THREADS) |
189 |
/* When we are using non-cooperating threads, we might need to make |
/* When we are using non-cooperating threads, we might need to make |
190 |
sure that the initial values for the slots are protected until |
sure that the initial values for the slots are protected until |
193 |
#error review me |
#error review me |
194 |
scm_remember_upto_here_3 (SCM_PACK (cbr), SCM_PACK (ccr), SCM_PACK (cdr)); |
scm_remember_upto_here_3 (SCM_PACK (cbr), SCM_PACK (ccr), SCM_PACK (cdr)); |
195 |
#endif |
#endif |
|
#endif |
|
196 |
|
|
197 |
|
|
198 |
#if (SCM_DEBUG_CELL_ACCESSES == 1) |
#if (SCM_DEBUG_CELL_ACCESSES == 1) |