diff options
| author | Enrico Tassi | 2014-06-26 15:39:16 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2014-07-10 15:22:58 +0200 |
| commit | 4f554c88aa7ecc8ebeb8af1a11bf3a12d255c25b (patch) | |
| tree | b69296604caaccaa4c82f141a742a56d8956cf23 | |
| parent | 19d2075236c4c3fd932f7cf003b9f7283dafaeca (diff) | |
CoqIDE: on win32 the old interrputer code (SIGINT) is still needed
| -rw-r--r-- | ide/coq.mli | 2 | ||||
| -rw-r--r-- | ide/coqide_main.ml4 | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/ide/coq.mli b/ide/coq.mli index 966c77700e..492ba01488 100644 --- a/ide/coq.mli +++ b/ide/coq.mli @@ -171,3 +171,5 @@ val check_connection : string list -> unit (** Launch a coqtop with the user args in order to be sure that it works, checking in particular that Prelude.vo is found. This command may terminate coqide in case of trouble *) + +val interrupter : (int -> unit) ref diff --git a/ide/coqide_main.ml4 b/ide/coqide_main.ml4 index 1e9f0b9ab4..aad70197e0 100644 --- a/ide/coqide_main.ml4 +++ b/ide/coqide_main.ml4 @@ -90,6 +90,7 @@ external win32_interrupt : int -> unit = "win32_interrupt" let () = Coq.gio_channel_of_descr_socket := Glib.Io.channel_of_descr_socket; set_win32_path (); + Coq.interrupter := win32_interrupt; reroute_stdout_stderr () END |