diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-07-23 11:54:36 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-08-05 18:24:50 +0200 |
commit | 4e724634839726aa11534f16e4bfb95cd81232a4 (patch) | |
tree | 2114ba0a78c4df764d78ad260e30f5fa6854df95 /ide/coqOps.ml | |
parent | 95e97b68744eeb8bf20811c3938d78912eb3e918 (diff) |
STM: code restructured to reuse task queue for tactics
Diffstat (limited to 'ide/coqOps.ml')
-rw-r--r-- | ide/coqOps.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index cefe18092..b242bd092 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -122,11 +122,11 @@ object method backtrack_last_phrase : unit task method initialize : unit task method join_document : unit task - method stop_worker : int -> unit task + method stop_worker : string -> unit task method get_n_errors : int method get_errors : (int * string) list - method get_slaves_status : int * int * string Int.Map.t + method get_slaves_status : int * int * string CString.Map.t method handle_failure : handle_exn_rty -> unit task @@ -154,7 +154,7 @@ object(self) (* proofs being processed by the slaves *) val mutable to_process = 0 val mutable processed = 0 - val mutable slaves_status = Int.Map.empty + val mutable slaves_status = CString.Map.empty val feedbacks : feedback Queue.t = Queue.create () val feedback_timer = Ideutils.mktimer () @@ -377,7 +377,7 @@ object(self) else to_process <- to_process + n | SlaveStatus(id,status), _ -> log "SlaveStatus" None; - slaves_status <- Int.Map.add id status slaves_status + slaves_status <- CString.Map.add id status slaves_status | _ -> if sentence <> None then Minilib.log "Unsupported feedback message" |