diff options
| author | Lasse Blaauwbroek | 2020-11-22 11:22:52 +0100 |
|---|---|---|
| committer | Lasse Blaauwbroek | 2020-12-06 16:56:07 +0100 |
| commit | 00a09f2cc4a8f4b6baeca0a474e5ab4062ff0f97 (patch) | |
| tree | 63884d6459014a889739ee9583ceb7d8d9d648e9 /engine/proofview.ml | |
| parent | 7514bc25c6e8dffeb58ae9af0916dac83953d337 (diff) | |
Add support for high resolution timeout functions.
Diffstat (limited to 'engine/proofview.ml')
| -rw-r--r-- | engine/proofview.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml index 22863f451d..a4d96a7e8f 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -926,7 +926,7 @@ let _ = CErrors.register_handler begin function | _ -> None end -let tclTIMEOUT n t = +let tclTIMEOUTF n t = let open Proof in (* spiwack: as one of the monad is a continuation passing monad, it doesn't force the computation to be threaded inside the underlying @@ -951,6 +951,8 @@ let tclTIMEOUT n t = return res | Util.Inr (e, info) -> tclZERO ~info e +let tclTIMEOUT n t = tclTIMEOUTF (float_of_int n) t + let tclTIME s t = let pr_time t1 t2 n msg = let msg = |