Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 12:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Do not block sw interrupts in batch mode (don't ignore C-c)

Browse source
This commit is contained in:
Andrea Corallo 2020-01-02 22:14:25 +01:00
parent 5252b59b2b
commit 3039c55642
1 changed files with 16 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/comp.c
View file

@ -3110,16 +3110,19 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file,
gcc_jit_context_set_int_option (comp.ctxt,
GCC_JIT_INT_OPTION_OPTIMIZATION_LEVEL,
SPEED);
/* Gcc doesn't like being interrupted at all. */
block_input ();
sigset_t oldset;
sigset_t blocked;
sigemptyset (&blocked);
sigaddset (&blocked, SIGALRM);
sigaddset (&blocked, SIGINT);
sigaddset (&blocked, SIGIO);
pthread_sigmask (SIG_BLOCK, &blocked, &oldset);
if (!noninteractive)
{
sigset_t blocked;
/* Gcc doesn't like being interrupted at all. */
block_input ();
sigemptyset (&blocked);
sigaddset (&blocked, SIGALRM);
sigaddset (&blocked, SIGINT);
sigaddset (&blocked, SIGIO);
pthread_sigmask (SIG_BLOCK, &blocked, &oldset);
}
emit_ctxt_code ();
/* Define inline functions. */
@ -3164,8 +3167,11 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file,
Fdelete_file (out_file, Qnil);
Frename_file (tmp_file, out_file, Qnil);
pthread_sigmask (SIG_SETMASK, &oldset, 0);
unblock_input ();
if (!noninteractive)
{
pthread_sigmask (SIG_SETMASK, &oldset, 0);
unblock_input ();
}
return out_file;
}