diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-28 10:06:27 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-28 10:06:27 +0000 |
| commit | 7c102cf336a472b02266c34f13459ecbcb7cf35e (patch) | |
| tree | 75ec66b1991bf961e311eec7a439199f1efc0e53 | |
| parent | 51fcd131f14e99e86c26053756f31fdcda41a2ee (diff) | |
Bug dans l'initialisation du thread dans create_thread.
(il fallait affecter directement th->next et th->prev au lieu
d'utiliser modify).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@675 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | otherlibs/threads/scheduler.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/threads/scheduler.c b/otherlibs/threads/scheduler.c index 49534b2a4..16e58f8c4 100644 --- a/otherlibs/threads/scheduler.c +++ b/otherlibs/threads/scheduler.c @@ -168,9 +168,9 @@ value thread_new(clos) /* ML */ th->delay = NO_DELAY; th->joining = NO_JOINING; /* Insert thread in doubly linked list of threads */ - Assign(th->prev, curr_thread->prev); + th->prev = curr_thread->prev; + th->next = curr_thread; Assign(curr_thread->prev->next, th); - Assign(th->next, curr_thread); Assign(curr_thread->prev, th); /* Return thread */ return (value) th; |