Fatal error in VM if SIGINT was seen but no exception occured.

1 files changed, 6 insertions, 1 deletions

diff --git a/kernel/byterun/coq_interp.c b/kernel/byterun/coq_interp.c
index 9a1149bd86..dd3ff0302e 100644
--- a/kernel/byterun/coq_interp.c
+++ b/kernel/byterun/coq_interp.c
@@ -522,8 +522,13 @@ value coq_interprete
 #else
       if (caml_signals_are_pending) {
         /* If there's a Ctrl-C, we reset the vm */
-        if (caml_pending_signals[SIGINT]) { coq_sp = coq_stack_high; }
+        intnat sigint = caml_pending_signals[SIGINT];
+        if (sigint) { coq_sp = coq_stack_high; }
         caml_process_pending_signals();
+        if (sigint) {
+          caml_failwith("Coq VM: Fatal error: SIGINT signal detected "
+                        "but no exception was raised");
+        }
       }
 #endif
       Next;