flambda-backend: Fix names in signals.c

ocaml-flambda · Nov 2, 2023 · bd69ea7 · bd69ea7
1 parent 08e1a55
commit bd69ea7
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/otherlibs/unix/signals.c b/otherlibs/unix/signals.c
@@ -78,15 +78,15 @@ CAMLprim value caml_unix_sigprocmask(value vaction, value vset)
   caml_leave_blocking_section();
   /* Run any handlers for just-unmasked pending signals */
   caml_process_pending_actions();
-  if (retcode != 0) unix_error(retcode, "sigprocmask", Nothing);
+  if (retcode != 0) caml_unix_error(retcode, "sigprocmask", Nothing);
   return encode_sigset(&oldset);
 }
 
 CAMLprim value caml_unix_sigpending(value unit)
 {
   sigset_t pending;
   int i;
-  if (sigpending(&pending) == -1) uerror("sigpending", Nothing);
+  if (sigpending(&pending) == -1) caml_uerror("sigpending", Nothing);
   for (i = 1; i < NSIG; i++)
     if(caml_pending_signals[i])
       sigaddset(&pending, i);
@@ -101,7 +101,7 @@ CAMLprim value caml_unix_sigsuspend(value vset)
   caml_enter_blocking_section();
   retcode = sigsuspend(&set);
   caml_leave_blocking_section();
-  if (retcode == -1 && errno != EINTR) uerror("sigsuspend", Nothing);
+  if (retcode == -1 && errno != EINTR) caml_uerror("sigsuspend", Nothing);
   return Val_unit;
 }