diff --git a/hosts/ocaml/bin/sx_server.ml b/hosts/ocaml/bin/sx_server.ml index 258dedde..55b3db91 100644 --- a/hosts/ocaml/bin/sx_server.ml +++ b/hosts/ocaml/bin/sx_server.ml @@ -825,8 +825,9 @@ let register_jit_hook env = let compiled = Sx_vm.jit_compile_lambda l (env_to_vm_globals env) in let dt = Unix.gettimeofday () -. t0 in _jit_compiling := false; - Printf.eprintf "[jit] %s compile %s in %.3fs\n%!" - fn_name (match compiled with Some _ -> "OK" | None -> "FAIL") dt; + if dt > 0.5 || (match compiled with None -> true | _ -> false) then + Printf.eprintf "[jit] %s compile %s in %.3fs\n%!" + fn_name (match compiled with Some _ -> "OK" | None -> "FAIL") dt; match compiled with | Some cl -> l.l_compiled <- Some cl;