620 |
else |
else |
621 |
#endif |
#endif |
622 |
{ |
{ |
623 |
t = malloc (sizeof (coop_t)); |
t = scm_malloc (sizeof (coop_t), "coop"); |
624 |
|
|
625 |
t->specific = NULL; |
t->specific = NULL; |
626 |
t->n_keys = 0; |
t->n_keys = 0; |
647 |
while (coop_child || mother_awake_p) |
while (coop_child || mother_awake_p) |
648 |
usleep (0); |
usleep (0); |
649 |
#else |
#else |
650 |
t->sto = malloc (COOP_STKSIZE); |
t->sto = scm_malloc (COOP_STKSIZE); |
651 |
sto = COOP_STKALIGN (t->sto, QT_STKALIGN); |
sto = COOP_STKALIGN (t->sto, QT_STKALIGN); |
652 |
t->sp = QT_SP (sto, COOP_STKSIZE - QT_STKALIGN); |
t->sp = QT_SP (sto, COOP_STKSIZE - QT_STKALIGN); |
653 |
#endif |
#endif |
730 |
/* Create a join list if necessary */ |
/* Create a join list if necessary */ |
731 |
if (t->joining == NULL) |
if (t->joining == NULL) |
732 |
{ |
{ |
733 |
t->joining = malloc(sizeof(coop_q_t)); |
t->joining = scm_malloc(sizeof(coop_q_t)); |
734 |
coop_qinit((coop_q_t *) t->joining); |
coop_qinit((coop_q_t *) t->joining); |
735 |
} |
} |
736 |
|
|