Build:
- 0
2026-06-19 19:49.47: New job: build vhd-format.0.12.2 (31c64b186f4a) 2026-06-19 19:49.47: Waiting for resource in pool day11-builds 2026-06-19 20:11.00: Got resource from pool day11-builds 2026-06-19 20:11.00: [profile full] build vhd-format.0.12.2 2026-06-19 20:11.00: build vhd-format.0.12.2 (31c64b186f4a) === DEPENDENCIES (24 transitive) === base-threads.base b7164ff76afe base-unix.base 839dc585f12d bigarray-compat.1.1.0 f132a29a396b conf-pkg-config.5 64c6b37d622b cstruct.6.0.1 255c06436eb1 dune.3.23.1 b9e31df96092 io-page.3.0.0 da018f8d24b5 num.1.6 1d184d02a6f2 ocaml.5.5.0 7bdffd2f55d9 ocaml-base-compiler.5.5.0 88ac983b1a28 ocaml-compiler.5.5.0 8d77bbea3746 ocaml-compiler-libs.v0.17.0 6bb2fe976db3 ocamlbuild.0.16.1 b61d8be21b8c ocamlfind.1.9.8 1872268d1aec parsexp.v0.17.0 32afa7c7ac17 ppx_cstruct.6.0.1 6b7da3cf2115 ppx_derivers.1.2.1 e49491a38353 ppxlib.0.38.0 495045ef7a3c rresult.0.7.0 bcecdf850d77 sexplib.v0.17.0 a3c31166922a sexplib0.v0.17.0 4906aac5ee08 stdlib-shims.0.3.0 4aecff888649 topkg.1.1.1 ecfbf436618b uuidm.0.9.10 d34b71c8437b === 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 -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__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 -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/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/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-19 20:11.29: OK: build vhd-format.0.12.2 (runc: 4.6s, disk: 26KB) 2026-06-19 20:11.29: Job succeeded