mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 08:50:23 +02:00
Code Activity

Use the SMOB API in `coop-pthreads.c' rather than low-level primitives.

Browse source 
* libguile/coop-pthreads.c: Include "smob.h".
  (make_thread): Use `SCM_NEWSMOB' rather than `scm_cell'.

git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-32
This commit is contained in:
Ludovic Courtes 2006-05-30 21:23:31 +00:00 • committed by Ludovic Courtès
parent bebc45ae90
commit 73e6fc23cd
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/coop-pthreads.c
View file

@ -31,6 +31,7 @@
#include "libguile/eval.h" #include "libguile/eval.h"
#include "libguile/async.h" #include "libguile/async.h"
#include "libguile/ports.h" #include "libguile/ports.h"
#include "libguile/smob.h"
#undef DEBUG #undef DEBUG
@ -100,7 +101,8 @@ make_thread (SCM creation_protects)
{ {
SCM z; SCM z;
scm_copt_thread *t = scm_gc_malloc (sizeof(*t), "thread"); scm_copt_thread *t = scm_gc_malloc (sizeof(*t), "thread");
z = scm_cell (scm_tc16_thread, (scm_t_bits)t);
SCM_NEWSMOB (z, t);
t->handle = z; t->handle = z;
t->result = creation_protects; t->result = creation_protects;
t->base = NULL; t->base = NULL;