From 9bd4863ce1bb82603b81e2de4d96a627426f26fe Mon Sep 17 00:00:00 2001 From: giles Date: Mon, 23 Mar 2026 12:49:20 +0000 Subject: [PATCH] Clean up JIT diagnostic logging from pre-compile loop Co-Authored-By: Claude Opus 4.6 (1M context) --- hosts/ocaml/bin/sx_server.ml | 3 +-- hosts/ocaml/lib/sx_vm.ml | 4 ++-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/hosts/ocaml/bin/sx_server.ml b/hosts/ocaml/bin/sx_server.ml index f335fbf..4808b27 100644 --- a/hosts/ocaml/bin/sx_server.ml +++ b/hosts/ocaml/bin/sx_server.ml @@ -977,8 +977,7 @@ let rec dispatch env cmd = | Some cl -> l.l_compiled <- Some cl; incr count - | None -> - Printf.eprintf "[jit] pre-compile FAIL: %s\n%!" name) + | None -> ()) | _ -> () ) compiler_fns; let dt = Unix.gettimeofday () -. t0 in diff --git a/hosts/ocaml/lib/sx_vm.ml b/hosts/ocaml/lib/sx_vm.ml index c13254f..c8fd693 100644 --- a/hosts/ocaml/lib/sx_vm.ml +++ b/hosts/ocaml/lib/sx_vm.ml @@ -439,7 +439,7 @@ let jit_compile_lambda (l : lambda) globals = merged end in - match result with + (match result with | Dict d when Hashtbl.mem d "bytecode" -> let outer_code = code_from_value result in let bc = outer_code.vc_bytecode in @@ -476,7 +476,7 @@ let jit_compile_lambda (l : lambda) globals = end | _ -> Printf.eprintf "[jit] FAIL %s: compiler returned %s\n%!" fn_name (type_of result); - None + None) with e -> Printf.eprintf "[jit] FAIL %s: %s\n%!" fn_name (Printexc.to_string e); None