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

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

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

revision 1.34 by mvo, Mon Feb 11 18:06:49 2002 UTC revision 1.35 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 257  scm_call_with_new_thread (SCM argl) Line 257  scm_call_with_new_thread (SCM argl)
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
# Line 343  scm_spawn_thread (scm_t_catch_body body, Line 343  scm_spawn_thread (scm_t_catch_body body,
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;

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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