bug#73589: system* does not honor SIGINT restoration in child

["Ludovic Courtès" <ludo@gnu.org>]

Hi,

Olivier Dion <olivier.dion@polymtl.ca> skribis:

> and its ouput from various executions:
>
>   1) $ ./a.out => (nil) 0x1 (nil)
>   2) $ guile -c '(system "./a.out")' => (nil) 0x1 (nil)
>   3) $ guile -c '(system* "./a.out")' => 0x1 0x1 (nil)
>
> We can see that 3) does not honor restoration of `SIGINT' to `SIG_DFL'
> like `system(3)' does.  This seems to be because of the following
> sigaction before the creation of the process:
>
> 1697  scm_dynwind_sigaction (SIGINT,
> 1698                         scm_from_uintptr_t ((uintptr_t) SIG_IGN),
> 1699                         SCM_UNDEFINED);
> 1700 #ifdef SIGQUIT
> 1701  scm_dynwind_sigaction (SIGQUIT,
> 1702                         scm_from_uintptr_t ((uintptr_t) SIG_IGN),
> 1703                         SCM_UNDEFINED);
> 1704 #endif
> 1705
> 1706  err = piped_process (&pid, prog, args,
> 1707                       SCM_UNDEFINED, SCM_UNDEFINED);

This was fixed in commit 4ae33f76d6b33ea0bedfa36050d44c88d08c2823, which
is included in 3.0.10:

--8<---------------cut here---------------start------------->8---
$ cat t.c
#include <stdio.h>
#include <signal.h>

int main(void)
{
	struct sigaction act;

	sigaction(SIGINT, NULL, &act);

	printf("%p %p %p\n", act.sa_handler, SIG_IGN, SIG_DFL);
}
$ gcc -Wall t.c
$ ./a.out 
(nil) 0x1 (nil)
$ ./meta/guile -c '(system "./a.out")'
(nil) 0x1 (nil)
$ ./meta/guile -c '(system* "./a.out")'
(nil) 0x1 (nil)
--8<---------------cut here---------------end--------------->8---

Ludo’.