diff options
| author | Nicolás Ojeda Bär <n.oje.bar@gmail.com> | 2022-03-04 09:40:58 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-03-04 09:40:58 +0100 |
| commit | bbe4df8732a5d23ddf75eb3495c0c162dfbae798 (patch) | |
| tree | b8e70798241b4b11b4124574af2f58ab7852f994 | |
| parent | 57c2f9bc6aac9791fa3227e0c5b7cdb8483f1ca0 (diff) | |
| download | ocaml-bbe4df8732a5d23ddf75eb3495c0c162dfbae798.tar.gz | |
Fix tag typo following #11002 (#11086)
| -rw-r--r-- | otherlibs/systhreads/st_posix.h | 2 | ||||
| -rw-r--r-- | otherlibs/systhreads/st_stubs.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/systhreads/st_posix.h b/otherlibs/systhreads/st_posix.h index 6b85574fe8..cf1b9fd540 100644 --- a/otherlibs/systhreads/st_posix.h +++ b/otherlibs/systhreads/st_posix.h @@ -364,7 +364,7 @@ static value st_encode_sigset(sigset_t * set) for (i = 1; i < NSIG; i++) if (sigismember(set, i) > 0) { - res = caml_alloc_2(2, Val_int(caml_rev_convert_signal_number(i)), res); + res = caml_alloc_2(0, Val_int(caml_rev_convert_signal_number(i)), res); } CAMLreturn(res); } diff --git a/otherlibs/systhreads/st_stubs.c b/otherlibs/systhreads/st_stubs.c index a91c42e116..acdfdedf67 100644 --- a/otherlibs/systhreads/st_stubs.c +++ b/otherlibs/systhreads/st_stubs.c @@ -276,7 +276,7 @@ static value caml_thread_new_descriptor(value clos) /* Create and initialize the termination semaphore */ mu = caml_threadstatus_new(); /* Create a descriptor for the new thread */ - descr = caml_alloc_3(3, Val_long(atomic_fetch_add(&thread_next_id, +1)), + descr = caml_alloc_3(0, Val_long(atomic_fetch_add(&thread_next_id, +1)), clos, mu); CAMLreturn(descr); } |