diff options
| author | gareuselesinge | 2013-09-13 15:44:17 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-09-13 15:44:17 +0000 |
| commit | d87aca813d13930b2d8f67fbc7ea03dabdb48410 (patch) | |
| tree | bceea7a344974d9ef594029dabc0c988780ef6bc | |
| parent | 3edfacee35460265ca4fadbebd003bebf4b8742a (diff) | |
fix STM feeback on running jobs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16776 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/stm.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/toplevel/stm.ml b/toplevel/stm.ml index 9310591416..b71b5c4be0 100644 --- a/toplevel/stm.ml +++ b/toplevel/stm.ml @@ -723,6 +723,7 @@ end = struct (* {{{ *) loop (); last_task := None with | VCS.Expired -> (* task cancelled: e.g. the user did backtrack *) + Pp.feedback (Interface.InProgress ~-1); prerr_endline ("Task expired: " ^ pr_task task) | MarshalError -> msg_warning(strbrk("Marshalling error. "^ @@ -787,10 +788,12 @@ end = struct (* {{{ *) | e when Errors.noncritical e -> (* This can happen if the proof is broken. The error has also been * signalled as a feedback, hence we can silently recover *) + Pp.feedback (Interface.InProgress ~-1); marshal_response !slave_oc (RespError (print e)); prerr_endline "Slave: failed with the following exception:"; prerr_endline (string_of_ppcmds (print e)) | e -> + Pp.feedback (Interface.InProgress ~-1); msg_error(str"Slave: failed with the following CRITICAL exception:"); msg_error(print e); msg_error(str"Slave: bailing out"); |