Skip to content

Commit

Permalink
Merge branch 'eyraud/fix_wait_for_processes' into 'master'
Browse files Browse the repository at this point in the history
Fixes in GNATCOLL.OS.Process.Wait_For_Processes

Closes #45

See merge request eng/toolchain/gnatcoll-core!91
  • Loading branch information
Jugst3r committed Apr 2, 2024
2 parents d20e909 + 2d68d3d commit 1251029
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/os/unix/process-wrappers.c
Original file line number Diff line number Diff line change
Expand Up @@ -104,7 +104,7 @@ int __gnatcoll_wait_for_sigchld (int fd, sint_64 timeout)
}

while (tv.tv_sec > 0 || tv.tv_usec > 0) {
retval = select(fd + 1, &fd_list, NULL, NULL, &tv);
retval = select(fd + 1, &fd_list, NULL, NULL, effective_timeout);
if (retval > 0)
{
read (fd, buf, 1);
Expand All @@ -129,7 +129,7 @@ int __gnatcoll_init_sigchld_monitoring()
struct sigaction action;
action.sa_handler = __gnatcoll_write_on_sigchld;
sigemptyset(&action.sa_mask);
action.sa_flags = 0;
action.sa_flags = SA_RESTART;
return sigaction (SIGCHLD, &action, NULL);
}

Expand Down

0 comments on commit 1251029

Please sign in to comment.