From 702074eaa9c417db15f1d8eccc49ba11ad8ebd44 Mon Sep 17 00:00:00 2001
From: giles <giles.bradshaw@rose-ash.com>
Date: Sun, 29 Mar 2026 22:38:54 +0000
Subject: [PATCH] Add _jit_warned check to prevent parse-loop infinite
 recompilation

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
---
 hosts/ocaml/bin/sx_server.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/hosts/ocaml/bin/sx_server.ml b/hosts/ocaml/bin/sx_server.ml
index 0c9750ce..b954acaa 100644
--- a/hosts/ocaml/bin/sx_server.ml
+++ b/hosts/ocaml/bin/sx_server.ml
@@ -729,6 +729,7 @@ let register_jit_hook env =
        | None ->
          let fn_name = match l.l_name with Some n -> n | None -> "?" in
          if !_jit_compiling then None
+         else if Hashtbl.mem _jit_warned fn_name then None
          else begin
            _jit_compiling := true;
            let t0 = Unix.gettimeofday () in