/[guile]/guile/guile-core/libguile/coop.c
ViewVC logotype

Diff of /guile/guile-core/libguile/coop.c

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

revision 1.29 by ela, Sun Nov 4 15:52:29 2001 UTC revision 1.30 by hanwen, Fri Aug 16 22:01:09 2002 UTC
# Line 620  coop_create (coop_userf_t *f, void *pu) Line 620  coop_create (coop_userf_t *f, void *pu)
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;
# Line 647  coop_create (coop_userf_t *f, void *pu) Line 647  coop_create (coop_userf_t *f, void *pu)
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
# Line 730  coop_join(coop_t *t) Line 730  coop_join(coop_t *t)
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    

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

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