diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2016-08-30 14:11:44 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2016-08-30 14:47:47 +0200 |
| commit | 3da141c5dfed50e1b9a4ad5421b4abacdcc23dae (patch) | |
| tree | 2c5c13780ed39810fcfba6bc44cb4852a81704f5 /stm/asyncTaskQueue.ml | |
| parent | 6231f07b2b7b31db93ce9fd4606450e3fa8b747f (diff) | |
Fix #4871 - interrupting par:abstract kills coqtop
Fix done with Enrico.
Diffstat (limited to 'stm/asyncTaskQueue.ml')
| -rw-r--r-- | stm/asyncTaskQueue.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml index 1214fc4da..613ddb4da 100644 --- a/stm/asyncTaskQueue.ml +++ b/stm/asyncTaskQueue.ml @@ -230,10 +230,8 @@ module Make(T : Task) = struct | (Die | TQueue.BeingDestroyed) -> giveback_exec_token (); kill proc; exit () | Sys_error _ | Invalid_argument _ | End_of_file -> - giveback_exec_token (); T.on_task_cancellation_or_expiration_or_slave_death !last_task; - kill proc; - exit () + giveback_exec_token (); kill proc; exit () end module Pool = WorkerPool.Make(Model) |