diff options
| author | Pierre-Marie Pédrot | 2021-01-14 19:12:11 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-01-14 19:12:11 +0100 |
| commit | eb25e63d58555a67b74a046b8bdf2ab6252164c0 (patch) | |
| tree | b3deef1089255b400e66cb540c315d629aff4108 /vernac | |
| parent | b8a3ebaa9695596f062298f5913ae4f4debb0124 (diff) | |
| parent | 00a09f2cc4a8f4b6baeca0a474e5ab4062ff0f97 (diff) | |
Merge PR #13378: Add support for high resolution timeout functions
Ack-by: SkySkimmer
Ack-by: ejgallego
Reviewed-by: ppedrot
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacinterp.ml b/vernac/vernacinterp.ml index e5971e1aaa..3a8a80d25a 100644 --- a/vernac/vernacinterp.ml +++ b/vernac/vernacinterp.ml @@ -82,7 +82,7 @@ let vernac_timeout ?timeout (f : 'a -> 'b) (x : 'a) : 'b = match !default_timeout, timeout with | _, Some n | Some n, None -> - (match Control.timeout n f x with + (match Control.timeout (float_of_int n) f x with | None -> Exninfo.iraise (Exninfo.capture CErrors.Timeout) | Some x -> x) | None, None -> |