2025-03-19 18:27.47: New job: test ahrefs/ocannl https://github.com/ahrefs/ocannl.git#refs/heads/master (367be2655cf44dcf622960079750a99cdec03fe8) (linux-x86_64:(lint-fmt)) Base: ocaml/opam:debian-12-ocaml-4.08@sha256:a7c06d659921ac2c9eb6cf997eb3a48300686cce5d1aeb393c0eb201644f0112 ocamlformat version: version 0.27.0 (from opam) To reproduce locally: git clone --recursive "https://github.com/ahrefs/ocannl.git" -b "master" && cd "ocannl" && git reset --hard 367be265 cat > Dockerfile <<'END-OF-DOCKERFILE' FROM ocaml/opam:debian-12-ocaml-4.08@sha256:a7c06d659921ac2c9eb6cf997eb3a48300686cce5d1aeb393c0eb201644f0112 USER 1000:1000 RUN cd ~/opam-repository && (git cat-file -e cb8df6db0195538a02cc2b2eb20e468f22c475a7 || git fetch origin master) && git reset -q --hard cb8df6db0195538a02cc2b2eb20e468f22c475a7 && git log --no-decorate -n1 --oneline && opam update -u RUN opam depext -i dune WORKDIR /src RUN opam depext -i ocamlformat=0.27.0 COPY --chown=1000:1000 . /src/ RUN opam exec -- dune build @fmt --ignore-promoted-rules || (echo "dune build @fmt failed"; exit 2) END-OF-DOCKERFILE docker build . END-REPRO-BLOCK 2025-03-19 18:27.47: Using cache hint "ahrefs/ocannl-ocaml/opam:debian-12-ocaml-4.08@sha256:a7c06d659921ac2c9eb6cf997eb3a48300686cce5d1aeb393c0eb201644f0112-debian-12-4.08_opam-2.3-ocamlformat-cb8df6db0195538a02cc2b2eb20e468f22c475a7" 2025-03-19 18:27.47: Using OBuilder spec: ((from ocaml/opam:debian-12-ocaml-4.08@sha256:a7c06d659921ac2c9eb6cf997eb3a48300686cce5d1aeb393c0eb201644f0112) (user (uid 1000) (gid 1000)) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "cd ~/opam-repository && (git cat-file -e cb8df6db0195538a02cc2b2eb20e468f22c475a7 || git fetch origin master) && git reset -q --hard cb8df6db0195538a02cc2b2eb20e468f22c475a7 && git log --no-decorate -n1 --oneline && opam update -u")) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam depext -i dune")) (workdir /src) (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam depext -i ocamlformat=0.27.0")) (copy (src .) (dst /src/)) (run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)")) ) 2025-03-19 18:27.47: Waiting for resource in pool OCluster 2025-03-19 19:34.37: Waiting for worker… 2025-03-19 19:36.42: Got resource from pool OCluster Building on x86-bm-c4.sw.ocaml.org hint: Using 'master' as the name for the initial branch. This default branch name hint: is subject to change. To configure the initial branch name to use in all hint: of your new repositories, which will suppress this warning, call: hint: hint: git config --global init.defaultBranch <name> hint: hint: Names commonly chosen instead of 'master' are 'main', 'trunk' and hint: 'development'. The just-created branch can be renamed via this command: hint: hint: git branch -m <name> Initialized empty Git repository in /var/cache/obuilder/ocluster/git/ocannl.git-6892d315d851562e83f7284a240d4486ed11f9c7/.git/ HEAD is now at 367be265 Load log_level earlier to consistently log all settings (from ocaml/opam:debian-12-ocaml-4.08@sha256:a7c06d659921ac2c9eb6cf997eb3a48300686cce5d1aeb393c0eb201644f0112) 2025-03-19 19:36.59 ---> saved as "212a1b8e3ddbfd9f9183e74007cf11c0bf064a0a89cec366fca17516e11ae032" /: (user (uid 1000) (gid 1000)) /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "cd ~/opam-repository && (git cat-file -e cb8df6db0195538a02cc2b2eb20e468f22c475a7 || git fetch origin master) && git reset -q --hard cb8df6db0195538a02cc2b2eb20e468f22c475a7 && git log --no-decorate -n1 --oneline && opam update -u")) From https://github.com/ocaml/opam-repository * branch master -> FETCH_HEAD a8ed476033..6ccbe63dbf master -> origin/master cb8df6db01 Merge pull request #27631 from dbuenzli/incompatible-cmdliner2 <><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><> [opam-repository-archive] synchronised from git+https://github.com/ocaml/opam-repository-archive [default] synchronised from file:///home/opam/opam-repository default (at file:///home/opam/opam-repository): [INFO] opam 2.1 and 2.2 include many performance and security improvements over 2.0; please consider upgrading (https://opam.ocaml.org/doc/Install.html) Everything as up-to-date as possible (run with --verbose to show unavailable upgrades). However, you may "opam upgrade" these packages explicitly, which will ask permission to downgrade or uninstall the conflicting packages. Nothing to do. # Run eval $(opam env) to update the current shell environment 2025-03-19 19:38.08 ---> saved as "ec6e29036ddcadc06b009bbe66fde669f454df6f1dedff137b04204fabed1ccb" /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam depext -i dune")) # Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian # No extra OS packages requirements found. # All required OS packages found. # Now letting opam install the packages The following actions will be performed: - install dune 3.17.2 <><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><> [dune.3.17.2] found in cache <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> installed dune.3.17.2 Done. # Run eval $(opam env) to update the current shell environment 2025-03-19 19:38.55 ---> saved as "35e5ad98a700b9958ac679b199bff7e68f223d3229ae579e2b6c1aaa977740e4" /: (workdir /src) /src: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam depext -i ocamlformat=0.27.0")) # Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian # No extra OS packages requirements found. # All required OS packages found. # Now letting opam install the packages The following actions will be performed: - install ocaml-version 3.7.3 [required by ocamlformat-lib] - install sexplib0 v0.14.0 [required by base] - install dune-build-info 3.17.2 [required by ocamlformat-lib] - install menhirLib 20240715 [required by ocamlformat-lib] - install menhirCST 20240715 [required by menhir] - install ocamlfind 1.9.8 [required by ocp-indent, astring, fpath, uuseg] - install menhirSdk 20240715 [required by ocamlformat-lib] - install either 1.0.0 [required by ocamlformat-lib] - install cmdliner 1.3.0 [required by ocamlformat] - install seq base [required by re] - install camlp-streams 5.0.1 [required by ocamlformat-lib] - install csexp 1.5.2 [required by ocamlformat] - install ocamlbuild 0.16.1 [required by fpath, astring, uuseg] - install fix 20230505 [required by ocamlformat-lib] - install base-bytes base [required by ocp-indent] - install menhir 20240715 [required by ocamlformat-lib] - install re 1.11.0 [required by ocamlformat] - install dune-configurator 3.17.2 [required by base] - install topkg 1.0.8 [required by fpath, astring, uuseg] - install ocp-indent 1.8.1 [required by ocamlformat-lib] - install base v0.14.3 [required by ocamlformat-lib] - install uutf 1.0.4 [required by ocamlformat-lib] - install astring 0.8.5 [required by ocamlformat-lib] - install stdio v0.14.0 [required by ocamlformat-lib] - install uucp 15.0.0 [required by uuseg] - install fpath 0.7.3 [required by ocamlformat-lib] - install uuseg 15.0.0 [required by ocamlformat-lib] - install ocamlformat-lib 0.27.0 [required by ocamlformat] - install ocamlformat 0.27.0 ===== 29 to install ===== <><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><> [astring.0.8.5] found in cache [base.v0.14.3] found in cache [camlp-streams.5.0.1] found in cache [cmdliner.1.3.0] found in cache [csexp.1.5.2] found in cache [dune-build-info.3.17.2] found in cache [dune-configurator.3.17.2] found in cache [either.1.0.0] found in cache [fix.20230505] found in cache [fpath.0.7.3] found in cache [menhir.20240715] found in cache [menhirCST.20240715] found in cache [menhirLib.20240715] found in cache [menhirSdk.20240715] found in cache [ocaml-version.3.7.3] found in cache [ocamlbuild.0.16.1] found in cache [ocamlfind.1.9.8] found in cache [ocamlformat.0.27.0] found in cache [ocamlformat-lib.0.27.0] found in cache [ocp-indent.1.8.1] found in cache [re.1.11.0] found in cache [sexplib0.v0.14.0] found in cache [stdio.v0.14.0] found in cache [topkg.1.0.8] found in cache [uucp.15.0.0] found in cache [uuseg.15.0.0] found in cache [uutf.1.0.4] found in cache <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> installed seq.base -> installed camlp-streams.5.0.1 -> installed csexp.1.5.2 -> installed either.1.0.0 -> installed fix.20230505 -> installed cmdliner.1.3.0 -> installed menhirCST.20240715 -> installed menhirLib.20240715 -> installed menhirSdk.20240715 -> installed ocaml-version.3.7.3 -> installed re.1.11.0 -> installed sexplib0.v0.14.0 -> installed dune-build-info.3.17.2 -> installed dune-configurator.3.17.2 -> installed ocamlfind.1.9.8 -> installed base-bytes.base -> installed ocamlbuild.0.16.1 -> installed ocp-indent.1.8.1 -> installed base.v0.14.3 -> installed topkg.1.0.8 -> installed stdio.v0.14.0 -> installed uutf.1.0.4 -> installed astring.0.8.5 -> installed menhir.20240715 -> installed fpath.0.7.3 -> installed uucp.15.0.0 -> installed uuseg.15.0.0 -> installed ocamlformat-lib.0.27.0 -> installed ocamlformat.0.27.0 Done. <><> ocp-indent.1.8.1 installed successfully ><><><><><><><><><><><><><><><><><> => This package requires additional configuration for use in editors. Install package 'user-setup', or manually: * for Emacs, add these lines to ~/.emacs: (add-to-list 'load-path "/home/opam/.opam/4.08/share/emacs/site-lisp") (require 'ocp-indent) * for Vim, add this line to ~/.vimrc: set rtp^="/home/opam/.opam/4.08/share/ocp-indent/vim" # Run eval $(opam env) to update the current shell environment 2025-03-19 19:41.00 ---> saved as "4672e4377366a2d114fbc797e4a13df62976530243b73d7d66dfeeb003832a55" /src: (copy (src .) (dst /src/)) 2025-03-19 19:41.01 ---> saved as "857525a13687cb24d9464b8eef0980fbf27c72f2ee24bb449dee05e78423b480" /src: (run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)")) File "lib/dune", line 1, characters 0-0: diff --git a/_build/default/lib/dune b/_build/default/lib/.formatted/dune index b49989d..15addba 100644 --- a/_build/default/lib/dune +++ b/_build/default/lib/.formatted/dune @@ -14,7 +14,8 @@ ; mem_usage ppx_minidebug.runtime arrayjit) - (preprocessor_deps (env_var OCANNL_LOG_LEVEL)) + (preprocessor_deps + (env_var OCANNL_LOG_LEVEL)) (preprocess (pps ppx_compare Warning: Invalid documentation comment: File "lib/shape.mli", line 86, characters 107-108: Unpaired '}' (end of markup). Suggestion: try '\}'. File "lib/tensor.mli", line 1, characters 0-0: diff --git a/_build/default/lib/tensor.mli b/_build/default/lib/.formatted/tensor.mli index c9465b9..eba4c2e 100644 --- a/_build/default/lib/tensor.mli +++ b/_build/default/lib/.formatted/tensor.mli @@ -157,6 +157,7 @@ val ternop : t -> t -> t + val term : label:string list -> grad_spec:grad_spec -> File "test/primitive_ops.ml", line 1, characters 0-0: diff --git a/_build/default/test/primitive_ops.ml b/_build/default/test/.formatted/primitive_ops.ml index 440d95a..7606387 100644 --- a/_build/default/test/primitive_ops.ml +++ b/_build/default/test/.formatted/primitive_ops.ml @@ -153,11 +153,13 @@ let%expect_test "sat01" = │ │ x │ └─────┴────────────────────────────────────────────────────────────────────────────────────────────────────┘ |}] + let%expect_test "exp(x)" = let%op f x = exp x in let plot_box = plot_unop ~f in PrintBox_text.output Stdio.stdout plot_box; - [%expect {| + [%expect + {| ┌────────┬────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ 1.34e+2│ *│ │ │ │ @@ -206,10 +208,11 @@ let%expect_test "exp(x)" = |}] let%expect_test "log(x)" = - let%op f x = log x in + let%op f x = log x in let plot_box = plot_unop ~f in PrintBox_text.output Stdio.stdout plot_box; - [%expect {| + [%expect + {| ┌─────┬────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ 1.58│ │ │ │ │ @@ -261,7 +264,8 @@ let%expect_test "log2(x)" = let%op f x = log2 x in let plot_box = plot_unop ~f in PrintBox_text.output Stdio.stdout plot_box; - [%expect {| + [%expect + {| ┌─────┬────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ 2.29│ │ │ │ │ @@ -314,7 +318,8 @@ let%expect_test "sin(x)" = let plot_box = plot_unop ~f in PrintBox_text.output Stdio.stdout plot_box; [%expect.unreachable] -[@@expect.uncaught_exn {| +[@@expect.uncaught_exn + {| (* CR expect_test_collector: This test expectation appears to contain a backtrace. This is strongly discouraged as backtraces are fragile. Please change this test to not include a backtrace. *) @@ -354,7 +359,8 @@ let%expect_test "cos(x)" = let%op f x = cos x in let plot_box = plot_unop ~f in PrintBox_text.output Stdio.stdout plot_box; - [%expect {| + [%expect + {| ┌─────────┬────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ 1.00 │ # │ │ │ ** *** #### # *** **│ @@ -406,7 +412,8 @@ let%expect_test "neg(x)" = let%op f x = neg x in let plot_box = plot_unop ~f in PrintBox_text.output Stdio.stdout plot_box; - [%expect {| + [%expect + {| ┌──────┬────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ 5.00 │# │ │ │# # │ @@ -458,7 +465,8 @@ let%expect_test "fma(x, 2, 1)" = let%op f x = fma x !.2. !.1. in let plot_box = plot_unop ~f in PrintBox_text.output Stdio.stdout plot_box; - [%expect {| + [%expect + {| ┌────────┬────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ 1.08e+1│ #│ │ │ # # │ File "lib/shape.ml", line 1, characters 0-0: diff --git a/_build/default/lib/shape.ml b/_build/default/lib/.formatted/shape.ml index 4de694a..0a7a844 100644 --- a/_build/default/lib/shape.ml +++ b/_build/default/lib/.formatted/shape.ml @@ -894,7 +894,7 @@ let axis_keys_to_idcs (sh : t) : int axis_map = Array.rev_inplace idcs; Map.of_alist_exn (module AxisKey) @@ Array.to_list @@ Array.mapi idcs ~f:(fun i key -> (key, i)) -let%debug5_sexp default_display_indices (sh: t): int array = +let%debug5_sexp default_display_indices (sh : t) : int array = let axes = axis_keys_to_idcs sh |> Map.map ~f:(fun _ -> 0) in let occupied = Array.create ~len:5 false in let set_occu prio = Warning: Invalid documentation comment: File "arrayjit/lib/ops.ml", line 117, characters 9-81: '{{https://github.com/tinygrad/tinygrad/blob/master/tinygrad/ops.py#L123}': bad markup. Suggestion: did you mean '{!{https://github.com/tinygrad/tinygrad/blob/master/tinygrad/ops.py#L123}' or '[{https://github.com/tinygrad/tinygrad/blob/master/tinygrad/ops.py#L123]'? Warning: Invalid documentation comment: File "arrayjit/lib/ops.ml", line 117, characters 94-95: Unpaired '}' (end of markup). Suggestion: try '\}'. Warning: Invalid documentation comment: File "arrayjit/lib/ops.ml", line 118, characters 4-60: '{{https://docs.nvidia.com/cuda/cuda-math-api/index.html}': bad markup. Suggestion: did you mean '{!{https://docs.nvidia.com/cuda/cuda-math-api/index.html}' or '[{https://docs.nvidia.com/cuda/cuda-math-api/index.html]'? Warning: Invalid documentation comment: File "arrayjit/lib/ops.ml", line 118, characters 74-75: Unpaired '}' (end of markup). Suggestion: try '\}'. File "arrayjit/lib/ops.ml", line 1, characters 0-0: diff --git a/_build/default/arrayjit/lib/ops.ml b/_build/default/arrayjit/lib/.formatted/ops.ml index 95aaf61..eb6a67d 100644 --- a/_build/default/arrayjit/lib/ops.ml +++ b/_build/default/arrayjit/lib/.formatted/ops.ml @@ -379,11 +379,7 @@ let unop_c_syntax prec op = | Double_prec _ | Byte_prec _ -> "fmax" | _ -> "fmaxf" in - let fmin () = - match prec with - | Double_prec _ | Byte_prec _ -> "fmin" - | _ -> "fminf" - in + let fmin () = match prec with Double_prec _ | Byte_prec _ -> "fmin" | _ -> "fminf" in match (op, prec) with | Identity, _ -> ("", "") | Relu, Byte_prec _ -> ("fmax(0, ", ")") File "arrayjit/lib/ndarray.ml", line 1, characters 0-0: diff --git a/_build/default/arrayjit/lib/ndarray.ml b/_build/default/arrayjit/lib/.formatted/ndarray.ml index f56c4b1..280eeae 100644 --- a/_build/default/arrayjit/lib/ndarray.ml +++ b/_build/default/arrayjit/lib/.formatted/ndarray.ml @@ -447,8 +447,8 @@ let log_debug_info ~from_log_level:_level _nd = let concise_float ~prec v = (* The C99 standard requires at least two digits for the exponent, but the leading zero is a waste - of space. Also handles e+0. String-based approach to avoid rounding issues I - noticed on Windows. *) + of space. Also handles e+0. String-based approach to avoid rounding issues I noticed on + Windows. *) let s = Printf.sprintf "%.*e" (prec + 3) v in let s = Str.global_replace (Str.regexp "[0-9][0-9][0-9]e") "e" s in let s = Str.global_replace (Str.regexp "e[+-]0+$") "" s in File "lib/row.ml", line 1, characters 0-0: diff --git a/_build/default/lib/row.ml b/_build/default/lib/.formatted/row.ml index c6e5347..a93eba2 100644 --- a/_build/default/lib/row.ml +++ b/_build/default/lib/.formatted/row.ml @@ -530,7 +530,8 @@ let subst_row (env : environment) ({ dims; bcast; id } : t) : t = id; })) -let%debug5_sexp rec unify_dim ~stage (eq : dim * dim) (env : environment) : constraint_ list * environment = +let%debug5_sexp rec unify_dim ~stage (eq : dim * dim) (env : environment) : + constraint_ list * environment = let dim1 : dim = subst_dim env @@ fst eq and dim2 : dim = subst_dim env @@ snd eq in match (dim1, dim2) with | Dim { label = Some l1; _ }, Dim { label = Some l2; _ } when not (String.equal l1 l2) -> @@ -590,7 +591,8 @@ let drop_from_end l n = List.rev @@ List.drop (List.rev l) n let take_from_end (l : dim list) (n : int) : dim list = List.rev @@ List.take (List.rev l) n (* Equate two rows, no broadcasting. Does not resolve inequalities. *) -let%debug5_sexp rec unify_row ~stage (eq : t * t) (env : environment) : constraint_ list * environment = +let%debug5_sexp rec unify_row ~stage (eq : t * t) (env : environment) : + constraint_ list * environment = let rec solve (ineqs, env) = function | Dim_eq { d1; d2 } -> let more_ineqs, env = unify_dim ~stage (d1, d2) env in @@ -1145,7 +1147,8 @@ let%debug5_sexp solve_row_ineq ~(stage : stage) ~(cur : t) ~(subr : t) (env : en | { bcast = Row_var _ | Broadcastable; _ }, { bcast = Row_var _ | Broadcastable; _ } -> (Row_ineq { cur; subr } :: ineqs, env) -let%debug5_sexp close_dim_terminal ~(stage : stage) (env : environment) (dim : dim) : constraint_ list = +let%debug5_sexp close_dim_terminal ~(stage : stage) (env : environment) (dim : dim) : + constraint_ list = match dim with | Dim _ -> [] | Var v -> ( @@ -1160,7 +1163,8 @@ let%debug5_sexp close_dim_terminal ~(stage : stage) (env : environment) (dim : d let last_dim_is dims d2 = match List.last dims with Some (Dim { d; _ }) -> d = d2 | _ -> false -let%debug5_sexp rec eliminate_row_constraint ~lub (r : row) (constr : row_constraint) env : constraint_ list = +let%debug5_sexp rec eliminate_row_constraint ~lub (r : row) (constr : row_constraint) env : + constraint_ list = match r with | { bcast = Broadcastable; _ } -> (* The environment is unchanged, as apply_row_constraint would update only the constr. *) @@ -1234,7 +1238,8 @@ let%debug5_sexp eliminate_dim_entry v ~lub constr = | Some lub, At_least_dim _ -> Some (Dim_eq { d1 = Var v; d2 = lub }) | None, At_least_dim d -> Some (Dim_eq { d1 = Var v; d2 = get_dim ~d () }) -let%debug5_sexp eliminate_variables (env : environment) ({ dims; bcast; id } as _r : row) : constraint_ list = +let%debug5_sexp eliminate_variables (env : environment) ({ dims; bcast; id } as _r : row) : + constraint_ list = let f = function | Var v as d1 -> Some @@ -1410,8 +1415,8 @@ type proj_equation = e.g. for broadcasted-to axes of a tensor assigned a constant. *) [@@deriving compare, equal, sexp] -let%debug4_sexp get_proj_equations (inequalities : constraint_ list) proj_axis_env (env : environment) : - proj_equation list = +let%debug4_sexp get_proj_equations (inequalities : constraint_ list) proj_axis_env + (env : environment) : proj_equation list = let to_proj : dim -> proj = function | Var v when Map.mem proj_axis_env v -> Solved (Map.find_exn proj_axis_env v) | Dim { proj_id = Some proj_id; d; label = _ } -> Proj { proj_id; d } File "arrayjit/lib/gcc_backend.gccjit.ml", line 1, characters 0-0: diff --git a/_build/default/arrayjit/lib/gcc_backend.gccjit.ml b/_build/default/arrayjit/lib/.formatted/gcc_backend.gccjit.ml index 813a192..7dde527 100644 --- a/_build/default/arrayjit/lib/gcc_backend.gccjit.ml +++ b/_build/default/arrayjit/lib/.formatted/gcc_backend.gccjit.ml @@ -540,7 +540,7 @@ let compile_main ~name ~log_functions ~env { ctx; nodes; get_ident; merge_node; && not (String.is_prefix ~prefix:"(" prefix)); let f = Function.builtin ctx (String.drop_suffix prefix 1) in RValue.call ctx f [ loop c ] - | Ternop (FMA as op, c1, c2, c3) -> + | Ternop ((FMA as op), c1, c2, c3) -> let prefix, _, _, _ = Ops.ternop_c_syntax prec op in let f = Function.builtin ctx (String.drop_suffix prefix 1) in RValue.call ctx f [ loop c1; loop c2; loop c3 ] @@ -568,8 +568,9 @@ let compile_main ~name ~log_functions ~env { ctx; nodes; get_ident; merge_node; RValue.unary_op ctx Negate num_typ v | Unop (Not, c) -> let v = loop c in - cast_bool num_typ @@ RValue.unary_op ctx Logical_negate (Type.get ctx Type.Bool) - (RValue.comparison ctx Eq v (RValue.zero ctx num_typ)) + cast_bool num_typ + @@ RValue.unary_op ctx Logical_negate (Type.get ctx Type.Bool) + (RValue.comparison ctx Eq v (RValue.zero ctx num_typ)) and loop_for_loop ~toplevel ~env key ~from_ ~to_ body = let open Gccjit in let i = Indexing.symbol_ident key in dune build @fmt failed "/usr/bin/env" "bash" "-c" "opam exec -- dune build @fmt --ignore-promoted-rules || (echo "dune build @fmt failed"; exit 2)" failed with exit status 2 2025-03-19 19:41.04: Job failed: Failed: Build failed