File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -78,15 +78,15 @@ CAMLprim value caml_unix_sigprocmask(value vaction, value vset)
78
78
caml_leave_blocking_section ();
79
79
/* Run any handlers for just-unmasked pending signals */
80
80
caml_process_pending_actions ();
81
- if (retcode != 0 ) unix_error (retcode , "sigprocmask" , Nothing );
81
+ if (retcode != 0 ) caml_unix_error (retcode , "sigprocmask" , Nothing );
82
82
return encode_sigset (& oldset );
83
83
}
84
84
85
85
CAMLprim value caml_unix_sigpending (value unit )
86
86
{
87
87
sigset_t pending ;
88
88
int i ;
89
- if (sigpending (& pending ) == -1 ) uerror ("sigpending" , Nothing );
89
+ if (sigpending (& pending ) == -1 ) caml_uerror ("sigpending" , Nothing );
90
90
for (i = 1 ; i < NSIG ; i ++ )
91
91
if (caml_pending_signals [i ])
92
92
sigaddset (& pending , i );
@@ -101,7 +101,7 @@ CAMLprim value caml_unix_sigsuspend(value vset)
101
101
caml_enter_blocking_section ();
102
102
retcode = sigsuspend (& set );
103
103
caml_leave_blocking_section ();
104
- if (retcode == -1 && errno != EINTR ) uerror ("sigsuspend" , Nothing );
104
+ if (retcode == -1 && errno != EINTR ) caml_uerror ("sigsuspend" , Nothing );
105
105
return Val_unit ;
106
106
}
107
107
You can’t perform that action at this time.
0 commit comments