Build:
- 0
2026-06-16 16:19.57: New job: build vhd-format.0.12.2 (11235cd3e810) 2026-06-16 16:19.57: Waiting for resource in pool day11-builds 2026-06-16 17:00.58: Got resource from pool day11-builds 2026-06-16 17:00.58: [profile full] build vhd-format.0.12.2 2026-06-16 17:00.58: build vhd-format.0.12.2 (11235cd3e810) === DEPENDENCIES (25 transitive) === base-threads.base b7164ff76afe base-unix.base 839dc585f12d bigarray-compat.1.1.0 daad11e8fd80 conf-pkg-config.5 64c6b37d622b cstruct.6.0.1 032f5c255d6e dune.3.23.1 d50060dd2cab io-page.3.0.0 6f622bcea2ad num.1.6 158dee1e5f8c ocaml.5.4.1 708fed352b2a ocaml-base-compiler.5.4.1 89b85703f841 ocaml-compiler.5.4.1 a719b8419b8e ocaml-compiler-libs.v0.17.0 bb35244dbd80 ocaml-config.3 aa27f63940d8 ocamlbuild.0.16.1 069fc1e567af ocamlfind.1.9.8 5cfa73ef65e7 parsexp.v0.17.0 3e5ce3992c1d ppx_cstruct.6.0.1 4d6e26fc3631 ppx_derivers.1.2.1 48d8f0a02148 ppxlib.0.38.0 089dd9eec9cd rresult.0.7.0 02b516a972ff sexplib.v0.17.0 06685797e3a3 sexplib0.v0.17.0 3a274f46ef22 stdlib-shims.0.3.0 b64bd5274094 topkg.1.1.1 4a88955a28b6 uuidm.0.9.10 72bada417e1b === STDOUT === Processing: [default: loading data] [vhd-format.0.12.2: dl] [vhd-format.0.12.2: extract] -> retrieved vhd-format.0.12.2 (https://opam.ocaml.org/cache) [vhd-format: dune build] + /home/opam/.opam/default/bin/dune "build" "-p" "vhd-format" "-j" "39" (CWD=/home/opam/.opam/default/.opam-switch/build/vhd-format.0.12.2) - (cd _build/default && /home/opam/.opam/default/bin/ocamlc.opt -w -40 -w -32-34-37 -g -bin-annot -bin-annot-occurrences -I vhd_format/.vhd_format.objs/byte -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/io-page -I /home/opam/.opam/default/lib/rresult -I /home/opam/.opam/default/lib/stdlib-shims -I /home/opam/.opam/default/lib/uuidm -no-alias-deps -open Vhd_format -o vhd_format/.vhd_format.objs/byte/vhd_format__S.cmo -c -impl vhd_format/s.pp.ml) - File "_none_", line 1: - Alert ocaml_deprecated_auto_include: - OCaml's lib directory layout changed in 5.0. The unix subdirectory has been - automatically added to the search path, but you should add -I +unix to the - command-line to silence this alert (e.g. by adding unix to the list of - libraries in your dune file, or adding use_unix to your _tags file for - ocamlbuild, or using -package unix for ocamlfind). - (cd _build/default && /home/opam/.opam/default/bin/ocamlc.opt -w -40 -w -32-34-37 -g -bin-annot -bin-annot-occurrences -I vhd_format/.vhd_format.objs/byte -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/io-page -I /home/opam/.opam/default/lib/rresult -I /home/opam/.opam/default/lib/stdlib-shims -I /home/opam/.opam/default/lib/uuidm -cmi-file vhd_format/.vhd_format.objs/byte/vhd_format__Element.cmi -no-alias-deps -open Vhd_format -o vhd_format/.vhd_format.objs/byte/vhd_format__Element.cmo -c -impl vhd_format/element.pp.ml) - File "vhd_format/element.ml", line 30, characters 7-18: - 30 | if Cstruct.len x = sector_size - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/element.ml", line 32, characters 48-59: - 32 | else Printf.sprintf "%d sectors \"%s...\"" (Cstruct.len x / sector_size) text - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/element.ml", line 40, characters 32-43: - 40 | | `Sectors x -> Int64.of_int (Cstruct.len x / sector_size) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - (cd _build/default && /home/opam/.opam/default/bin/ocamlopt.opt -w -40 -w -32-34-37 -g -I vhd_format/.vhd_format.objs/byte -I vhd_format/.vhd_format.objs/native -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/io-page -I /home/opam/.opam/default/lib/rresult -I /home/opam/.opam/default/lib/stdlib-shims -I /home/opam/.opam/default/lib/uuidm -cmi-file vhd_format/.vhd_format.objs/byte/vhd_format__S.cmi -no-alias-deps -open Vhd_format -o vhd_format/.vhd_format.objs/native/vhd_format__S.cmx -c -impl vhd_format/s.pp.ml) - File "_none_", line 1: - Alert ocaml_deprecated_auto_include: - OCaml's lib directory layout changed in 5.0. The unix subdirectory has been - automatically added to the search path, but you should add -I +unix to the - command-line to silence this alert (e.g. by adding unix to the list of - libraries in your dune file, or adding use_unix to your _tags file for - ocamlbuild, or using -package unix for ocamlfind). - (cd _build/default && /home/opam/.opam/default/bin/ocamlopt.opt -w -40 -w -32-34-37 -g -I vhd_format/.vhd_format.objs/byte -I vhd_format/.vhd_format.objs/native -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/io-page -I /home/opam/.opam/default/lib/rresult -I /home/opam/.opam/default/lib/stdlib-shims -I /home/opam/.opam/default/lib/uuidm -cmi-file vhd_format/.vhd_format.objs/byte/vhd_format__Element.cmi -no-alias-deps -open Vhd_format -o vhd_format/.vhd_format.objs/native/vhd_format__Element.cmx -c -impl vhd_format/element.pp.ml) - File "vhd_format/element.ml", line 30, characters 7-18: - 30 | if Cstruct.len x = sector_size - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/element.ml", line 32, characters 48-59: - 32 | else Printf.sprintf "%d sectors \"%s...\"" (Cstruct.len x / sector_size) text - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/element.ml", line 40, characters 32-43: - 40 | | `Sectors x -> Int64.of_int (Cstruct.len x / sector_size) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - (cd _build/default && /home/opam/.opam/default/bin/ocamlc.opt -w -40 -w -32-34-37 -g -bin-annot -bin-annot-occurrences -I vhd_format/.vhd_format.objs/byte -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/io-page -I /home/opam/.opam/default/lib/rresult -I /home/opam/.opam/default/lib/stdlib-shims -I /home/opam/.opam/default/lib/uuidm -cmi-file vhd_format/.vhd_format.objs/byte/vhd_format__F.cmi -no-alias-deps -open Vhd_format -o vhd_format/.vhd_format.objs/byte/vhd_format__F.cmo -c -impl vhd_format/f.pp.ml) - File "vhd_format/f.ml", line 26, characters 19-30: - 26 | for i = 0 to Cstruct.len a - 1 do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 33, characters 3-14: - 33 | (Cstruct.len a = (Cstruct.len b)) && (check_contents a b) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 33, characters 20-31: - 33 | (Cstruct.len a = (Cstruct.len b)) && (check_contents a b) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 83, characters 23-37: - 83 | let blank_uuid = match Uuidm.of_bytes (String.make 16 '\000') with - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.of_bytes - Use Uuidm.of_binary_string instead - - File "vhd_format/f.ml", line 205, characters 11-22: - 205 | if n=Cstruct.len m then cur else - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 353, characters 12-24: - 353 | ?(uid = Uuidm.create `V4) ?(saved_state = false) () = - ^^^^^^^^^^^^ - Alert deprecated: Uuidm.create - Use Uuidm.v instead - - File "vhd_format/f.ml", line 432, characters 20-34: - 432 | set_footer_uid (Uuidm.to_bytes t.uid) 0 buf; - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.to_bytes - Use Uuidm.to_binary_string instead - - File "vhd_format/f.ml", line 467, characters 12-26: - 467 | ( match Uuidm.of_bytes bytes with - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.of_bytes - Use Uuidm.of_binary_string instead - - File "vhd_format/f.ml", line 574, characters 11-22: - 574 | if Cstruct.len t.platform_data <= from - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 779, characters 33-47: - 779 | set_header_parent_unique_id (Uuidm.to_bytes t.parent_unique_id) 0 buf; - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.to_bytes - Use Uuidm.to_binary_string instead - - File "vhd_format/f.ml", line 830, characters 13-27: - 830 | ( match (Uuidm.of_bytes bytes) with - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.of_bytes - Use Uuidm.of_binary_string instead - - File "vhd_format/f.ml", line 912, characters 18-29: - 912 | for i = 0 to (Cstruct.len data) / 4 - 1 do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 922, characters 83-94: - 922 | Printf.sprintf "(%d rounded to %d)[ %s ] with highest_value = %ld" (length t) (Cstruct.len t.data / 4) (String.concat "; " (List.map (fun (i, x) -> Printf.sprintf "(%d, %lx)" i x) (List.rev !used))) t.highest_value - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 936, characters 33-44: - 936 | Cstruct.blit t.data 0 buf 0 (Cstruct.len t.data) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 993, characters 17-28: - 993 | for i = 0 to Cstruct.len buf - 1 do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1099, characters 14-25: - 1099 | if size = Cstruct.len sector_all_ones - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1104, characters 14-25: - 1104 | if size = Cstruct.len sector_all_zeroes - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1120, characters 7-18: - 1120 | if Cstruct.len t = 0 - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1123, characters 17-28: - 1123 | for i=0 to Cstruct.len t - 1 do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1513, characters 42-53: - 1513 | let adjusted_len = offset ++ (of_int (Cstruct.len buffer)) -- sector_start in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1517, characters 44-55: - 1517 | let useful_bytes_to_write = Stdlib.min (Cstruct.len buffer) (to_int (write_this_time -- offset ++ sector_start)) in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1675, characters 15-27: - 1675 | ?(uuid = Uuidm.create `V4) - ^^^^^^^^^^^^ - Alert deprecated: Uuidm.create - Use Uuidm.v instead - - File "vhd_format/f.ml", line 1726, characters 13-25: - 1726 | ?(uuid=Uuidm.create `V4) - ^^^^^^^^^^^^ - Alert deprecated: Uuidm.create - Use Uuidm.v instead - - File "vhd_format/f.ml", line 1867, characters 53-64: - 1867 | write_physical t (Int64.(add offset (of_int (Cstruct.len b))), bs) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1872, characters 25-36: - 1872 | | b :: bs -> loop (Cstruct.len b / sector_size + acc) bs in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1887, characters 24-35: - 1887 | let available = Cstruct.len b / sector_size in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - (cd _build/default && /home/opam/.opam/default/bin/ocamlopt.opt -w -40 -w -32-34-37 -g -I vhd_format/.vhd_format.objs/byte -I vhd_format/.vhd_format.objs/native -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/io-page -I /home/opam/.opam/default/lib/rresult -I /home/opam/.opam/default/lib/stdlib-shims -I /home/opam/.opam/default/lib/uuidm -cmi-file vhd_format/.vhd_format.objs/byte/vhd_format__F.cmi -no-alias-deps -open Vhd_format -o vhd_format/.vhd_format.objs/native/vhd_format__F.cmx -c -impl vhd_format/f.pp.ml) - File "vhd_format/f.ml", line 26, characters 19-30: - 26 | for i = 0 to Cstruct.len a - 1 do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 33, characters 3-14: - 33 | (Cstruct.len a = (Cstruct.len b)) && (check_contents a b) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 33, characters 20-31: - 33 | (Cstruct.len a = (Cstruct.len b)) && (check_contents a b) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 83, characters 23-37: - 83 | let blank_uuid = match Uuidm.of_bytes (String.make 16 '\000') with - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.of_bytes - Use Uuidm.of_binary_string instead - - File "vhd_format/f.ml", line 205, characters 11-22: - 205 | if n=Cstruct.len m then cur else - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 353, characters 12-24: - 353 | ?(uid = Uuidm.create `V4) ?(saved_state = false) () = - ^^^^^^^^^^^^ - Alert deprecated: Uuidm.create - Use Uuidm.v instead - - File "vhd_format/f.ml", line 432, characters 20-34: - 432 | set_footer_uid (Uuidm.to_bytes t.uid) 0 buf; - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.to_bytes - Use Uuidm.to_binary_string instead - - File "vhd_format/f.ml", line 467, characters 12-26: - 467 | ( match Uuidm.of_bytes bytes with - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.of_bytes - Use Uuidm.of_binary_string instead - - File "vhd_format/f.ml", line 574, characters 11-22: - 574 | if Cstruct.len t.platform_data <= from - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 779, characters 33-47: - 779 | set_header_parent_unique_id (Uuidm.to_bytes t.parent_unique_id) 0 buf; - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.to_bytes - Use Uuidm.to_binary_string instead - - File "vhd_format/f.ml", line 830, characters 13-27: - 830 | ( match (Uuidm.of_bytes bytes) with - ^^^^^^^^^^^^^^ - Alert deprecated: Uuidm.of_bytes - Use Uuidm.of_binary_string instead - - File "vhd_format/f.ml", line 912, characters 18-29: - 912 | for i = 0 to (Cstruct.len data) / 4 - 1 do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 922, characters 83-94: - 922 | Printf.sprintf "(%d rounded to %d)[ %s ] with highest_value = %ld" (length t) (Cstruct.len t.data / 4) (String.concat "; " (List.map (fun (i, x) -> Printf.sprintf "(%d, %lx)" i x) (List.rev !used))) t.highest_value - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 936, characters 33-44: - 936 | Cstruct.blit t.data 0 buf 0 (Cstruct.len t.data) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 993, characters 17-28: - 993 | for i = 0 to Cstruct.len buf - 1 do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1099, characters 14-25: - 1099 | if size = Cstruct.len sector_all_ones - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1104, characters 14-25: - 1104 | if size = Cstruct.len sector_all_zeroes - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1120, characters 7-18: - 1120 | if Cstruct.len t = 0 - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1123, characters 17-28: - 1123 | for i=0 to Cstruct.len t - 1 do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1513, characters 42-53: - 1513 | let adjusted_len = offset ++ (of_int (Cstruct.len buffer)) -- sector_start in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1517, characters 44-55: - 1517 | let useful_bytes_to_write = Stdlib.min (Cstruct.len buffer) (to_int (write_this_time -- offset ++ sector_start)) in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1675, characters 15-27: - 1675 | ?(uuid = Uuidm.create `V4) - ^^^^^^^^^^^^ - Alert deprecated: Uuidm.create - Use Uuidm.v instead - - File "vhd_format/f.ml", line 1726, characters 13-25: - 1726 | ?(uuid=Uuidm.create `V4) - ^^^^^^^^^^^^ - Alert deprecated: Uuidm.create - Use Uuidm.v instead - - File "vhd_format/f.ml", line 1867, characters 53-64: - 1867 | write_physical t (Int64.(add offset (of_int (Cstruct.len b))), bs) - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1872, characters 25-36: - 1872 | | b :: bs -> loop (Cstruct.len b / sector_size + acc) bs in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - - File "vhd_format/f.ml", line 1887, characters 24-35: - 1887 | let available = Cstruct.len b / sector_size in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. -> compiled vhd-format.0.12.2 -> installed vhd-format.0.12.2 === STDERR === 2026-06-16 17:01.07: OK: build vhd-format.0.12.2 (runc: 5.1s, disk: 26KB) 2026-06-16 17:01.07: Job succeeded