Fix C stubs for chown

Don't call Int64_val inside a blocking section.
ocaml-multicore · Nov 22, 2024 · 04364c5 · 04364c5
1 parent 510c2a6
commit 04364c5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib_eio/unix/stubs.c b/lib_eio/unix/stubs.c
@@ -60,11 +60,13 @@ CAMLprim value eio_unix_fchownat(value v_fd, value v_path, value v_uid, value v_
   CAMLparam3(v_path, v_uid, v_gid);
   char *path;
   int fd = Int_val(v_fd);
+  uid_t uid = Int64_val(v_uid);
+  gid_t gid = Int64_val(v_gid);
   int ret;
   caml_unix_check_path(v_path, "fchownat");
   path = caml_stat_strdup(String_val(v_path));
   caml_enter_blocking_section();
-  ret = fchownat(fd, path, Int64_val(v_uid), Int64_val(v_gid), Int_val(v_flags));
+  ret = fchownat(fd, path, uid, gid, Int_val(v_flags));
   caml_leave_blocking_section();
   caml_stat_free_preserving_errno(path);
   if (ret == -1)