Add SA_RESTART flag to the timer signal handler.

[ghc-hetmet.git] / ghc / rts / posix / Itimer.c

diff --git a/ghc/rts/posix/Itimer.c b/ghc/rts/posix/Itimer.c
index 06d0e6c..83ed84d 100644 (file)
--- a/ghc/rts/posix/Itimer.c
+++ b/ghc/rts/posix/Itimer.c
@@ -84,7 +84,18 @@ install_vtalrm_handler(TickProc handle_tick)
     action.sa_handler = handle_tick;
 
     sigemptyset(&action.sa_mask);
+
+#ifdef SA_RESTART
+    // specify SA_RESTART.  One consequence if we don't do this is
+    // that readline gets confused by the -threaded RTS.  It seems
+    // that if a SIGALRM handler is installed without SA_RESTART,
+    // readline installs its own SIGALRM signal handler (see
+    // readline's signals.c), and this somehow causes readline to go
+    // wrong when the input exceeds a single line (try it).
+    action.sa_flags = SA_RESTART;
+#else
     action.sa_flags = 0;
+#endif
 
     return sigaction(ITIMER_SIGNAL, &action, NULL);
 }