diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1998-10-26 19:19:32 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1998-10-26 19:19:32 +0000 |
| commit | 3be947947e3249a9b362fc790d377e43c4108a62 (patch) | |
| tree | fa0c0fbdd5b3148f926e2f7f15090f7bd7d9a44d /otherlibs/systhreads/posix.c | |
| parent | 59cb8750d21154c767d7224cd0f726b5da62d59b (diff) | |
nouvelles fonctions alloc/alloc_small
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2134 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/systhreads/posix.c')
| -rw-r--r-- | otherlibs/systhreads/posix.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/systhreads/posix.c b/otherlibs/systhreads/posix.c index 51abbef8e..b53e7540c 100644 --- a/otherlibs/systhreads/posix.c +++ b/otherlibs/systhreads/posix.c @@ -5,7 +5,7 @@ /* Xavier Leroy and Damien Doligez, INRIA Rocquencourt */ /* */ /* Copyright 1995 Institut National de Recherche en Informatique et */ -/* Automatique. Distributed only by permission. */ +/* en Automatique. Distributed only by permission. */ /* */ /***********************************************************************/ @@ -274,7 +274,7 @@ value caml_thread_initialize(value unit) /* ML */ mu = caml_mutex_new(Val_unit); caml_mutex_lock(mu); /* Create a descriptor for the current thread */ - descr = alloc_tuple(3); + descr = alloc_small(3, 0); Ident(descr) = Val_long(thread_next_ident); Start_closure(descr) = Val_unit; Terminated(descr) = mu; @@ -357,7 +357,7 @@ value caml_thread_new(value clos) /* ML */ mu = caml_mutex_new(Val_unit); caml_mutex_lock(mu); /* Create a descriptor for the new thread */ - descr = alloc_tuple(3); + descr = alloc_small(3, 0); Ident(descr) = Val_long(thread_next_ident); Start_closure(descr) = clos; Terminated(descr) = mu; |