coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Quiet noisy JIT compilation logs: only log slow (>500ms) or failed compiles

Browse Source 
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-03 17:08:24 +00:00
parent 38556af423
commit 36acb56a3a
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
hosts/ocaml/bin/sx_server.ml
View File

@@ -825,8 +825,9 @@ let register_jit_hook env =
let compiled = Sx_vm.jit_compile_lambda l (env_to_vm_globals env) in let compiled = Sx_vm.jit_compile_lambda l (env_to_vm_globals env) in
let dt = Unix.gettimeofday () -. t0 in let dt = Unix.gettimeofday () -. t0 in
_jit_compiling := false; _jit_compiling := false;
Printf.eprintf "[jit] %s compile %s in %.3fs\n%!" if dt > 0.5 || (match compiled with None -> true | _ -> false) then
fn_name (match compiled with Some _ -> "OK" | None -> "FAIL") dt; Printf.eprintf "[jit] %s compile %s in %.3fs\n%!"
fn_name (match compiled with Some _ -> "OK" | None -> "FAIL") dt;
match compiled with match compiled with
| Some cl -> | Some cl ->
l.l_compiled <- Some cl; l.l_compiled <- Some cl;