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

Clean up JIT diagnostic logging from pre-compile loop

Browse Source 
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-03-23 12:49:20 +00:00
parent 2a5ef0ea09
commit 9bd4863ce1
2 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -977,8 +977,7 @@ let rec dispatch env cmd =
| Some cl -> | Some cl ->
l.l_compiled <- Some cl; l.l_compiled <- Some cl;
incr count incr count
| None -> | None -> ())
Printf.eprintf "[jit] pre-compile FAIL: %s\n%!" name)
| _ -> () | _ -> ()
) compiler_fns; ) compiler_fns;
let dt = Unix.gettimeofday () -. t0 in let dt = Unix.gettimeofday () -. t0 in

4
hosts/ocaml/lib/sx_vm.ml
View File

@@ -439,7 +439,7 @@ let jit_compile_lambda (l : lambda) globals =
merged merged
end end
in in
match result with (match result with
| Dict d when Hashtbl.mem d "bytecode" -> | Dict d when Hashtbl.mem d "bytecode" ->
let outer_code = code_from_value result in let outer_code = code_from_value result in
let bc = outer_code.vc_bytecode in let bc = outer_code.vc_bytecode in
@@ -476,7 +476,7 @@ let jit_compile_lambda (l : lambda) globals =
end end
| _ -> | _ ->
Printf.eprintf "[jit] FAIL %s: compiler returned %s\n%!" fn_name (type_of result); Printf.eprintf "[jit] FAIL %s: compiler returned %s\n%!" fn_name (type_of result);
None None)
with e -> with e ->
Printf.eprintf "[jit] FAIL %s: %s\n%!" fn_name (Printexc.to_string e); Printf.eprintf "[jit] FAIL %s: %s\n%!" fn_name (Printexc.to_string e);
None None