257 |
/* Allocate thread locals. */ |
/* Allocate thread locals. */ |
258 |
root = scm_make_root (scm_root->handle); |
root = scm_make_root (scm_root->handle); |
259 |
/* Make thread. */ |
/* Make thread. */ |
260 |
thread = scm_alloc_cell (scm_tc16_thread, 0); |
thread = scm_cell (scm_tc16_thread, 0); |
261 |
SCM_DEFER_INTS; |
SCM_DEFER_INTS; |
262 |
argl = scm_cons (thread, argl); |
argl = scm_cons (thread, argl); |
263 |
/* Note that we couldn't pass a pointer to argl as data since the |
/* Note that we couldn't pass a pointer to argl as data since the |
343 |
/* Allocate thread locals. */ |
/* Allocate thread locals. */ |
344 |
root = scm_make_root (scm_root->handle); |
root = scm_make_root (scm_root->handle); |
345 |
/* Make thread. */ |
/* Make thread. */ |
346 |
thread = scm_alloc_cell (scm_tc16_thread, 0); |
thread = scm_cell (scm_tc16_thread, 0); |
347 |
SCM_DEFER_INTS; |
SCM_DEFER_INTS; |
348 |
|
|
349 |
data->u.thread = thread; |
data->u.thread = thread; |