From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 10 Nov 2019 12:10:31 +0000 (+0100)
Subject: fix SIGIO hang after compilation
X-Git-Tag: emacs-28.0.90~2727^2~1020
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e176d04d45adbb51f6bfa0b5a0352927056f3519;p=emacs.git

fix SIGIO hang after compilation
---

diff --git a/src/comp.c b/src/comp.c
index cce4f1d6e52..8793f7b856c 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -32,6 +32,7 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 #include "window.h"
 #include "dynlib.h"
 #include "buffer.h"
+#include "blockinput.h"
 
 #define DEFAULT_SPEED 2 /* See comp-speed var.  */
 
@@ -3037,6 +3038,7 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file,
 				  GCC_JIT_INT_OPTION_OPTIMIZATION_LEVEL,
 				  comp_speed);
   /* Gcc doesn't like being interrupted at all.  */
+  block_input ();
   sigset_t oldset;
   sigset_t blocked;
   sigemptyset (&blocked);
@@ -3081,6 +3083,7 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file,
 				   SSDATA (out_file));
 
   pthread_sigmask (SIG_SETMASK, &oldset, 0);
+  unblock_input ();
 
   return out_file;
 }