Build:
- 0
2026-06-20 19:01.14: New job: build vhd-format.0.12.3 (c43fda80bab5) 2026-06-20 19:01.14: Waiting for resource in pool day11-builds 2026-06-20 19:16.25: Got resource from pool day11-builds 2026-06-20 19:16.25: [profile full] build vhd-format.0.12.3 2026-06-20 19:16.25: build vhd-format.0.12.3 (c43fda80bab5) === DEPENDENCIES (25 transitive) === base-threads.base b7164ff76afe base-unix.base 839dc585f12d bigarray-compat.1.1.0 03fdddc1554e compiler-cloning.enabled 0d2606125f88 conf-pkg-config.5 64c6b37d622b cstruct.6.0.1 152516e67534 dune.3.23.1 dbfeecb5ca10 io-page.3.0.0 804850e1beb8 num.1.6 94f72f650e98 ocaml.5.5.0 1b4132bddf48 ocaml-base-compiler.5.5.0 1901c3a760c1 ocaml-compiler.5.5.0 5f593a0b4a8c ocaml-compiler-libs.v0.17.0 6373bfde8e91 ocamlbuild.0.16.1 b485a4f69c01 ocamlfind.1.9.8 5b46f9d92bbd parsexp.v0.17.0 7d275d842ed2 ppx_cstruct.6.0.1 61f92bbf097e ppx_derivers.1.2.1 2a3f00c1f6d2 ppxlib.0.38.0 c01fe47fa7a4 rresult.0.7.0 673600dffe08 sexplib.v0.17.0 c0adfbf904aa sexplib0.v0.17.0 313244870034 stdlib-shims.0.3.0 9047e6396dc4 topkg.1.1.1 8e3718e4cf5c uuidm.0.9.10 028d55fd3486 === STDOUT === Processing: [default: loading data] [vhd-format.0.12.3: dl] [vhd-format.0.12.3: extract] -> retrieved vhd-format.0.12.3 (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.3) - (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 "vhd_format/s.ml", 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 "vhd_format/s.ml", 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-19: - 353 | ?(uid = Uuidm.v `V4) ?(saved_state = false) () = - ^^^^^^^ - Alert deprecated: Uuidm.v - Use the version specific Uuidm.v* functions. - - 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-22: - 1675 | ?(uuid = Uuidm.v `V4) - ^^^^^^^ - Alert deprecated: Uuidm.v - Use the version specific Uuidm.v* functions. - - File "vhd_format/f.ml", line 1726, characters 13-20: - 1726 | ?(uuid=Uuidm.v `V4) - ^^^^^^^ - Alert deprecated: Uuidm.v - Use the version specific Uuidm.v* functions. - - 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-19: - 353 | ?(uid = Uuidm.v `V4) ?(saved_state = false) () = - ^^^^^^^ - Alert deprecated: Uuidm.v - Use the version specific Uuidm.v* functions. - - 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-22: - 1675 | ?(uuid = Uuidm.v `V4) - ^^^^^^^ - Alert deprecated: Uuidm.v - Use the version specific Uuidm.v* functions. - - File "vhd_format/f.ml", line 1726, characters 13-20: - 1726 | ?(uuid=Uuidm.v `V4) - ^^^^^^^ - Alert deprecated: Uuidm.v - Use the version specific Uuidm.v* functions. - - 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.3 -> installed vhd-format.0.12.3 === STDERR === 2026-06-20 19:16.41: OK: build vhd-format.0.12.3 (runc: 5.4s, disk: 26KB) 2026-06-20 19:16.41: Job succeeded