Commit 83de4f84 authored by Francois Bobot's avatar Francois Bobot

Print exception in scheduler bu Exn_printer

parent ec27f357
...@@ -112,14 +112,12 @@ let event_handler () = ...@@ -112,14 +112,12 @@ let event_handler () =
in () in ()
with with
| e -> | e ->
try eprintf "%a@." Exn_printer.exn_printer e;
Printexc.print (fun () -> raise e) () Mutex.lock queue_lock;
with _ -> Queue.push (a,HighFailure,0.0) answers_queue ;
Mutex.lock queue_lock; (* Condition.signal queue_condition; *)
Queue.push (a,HighFailure,0.0) answers_queue ; Mutex.unlock queue_lock;
(* Condition.signal queue_condition; *) ()
Mutex.unlock queue_lock;
()
with Queue.Empty -> with Queue.Empty ->
eprintf "Scheduler.event_handler: unexpected empty queues@."; eprintf "Scheduler.event_handler: unexpected empty queues@.";
assert false assert false
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment