Build:
- 0
2026-06-24 16:19.22: New job: build vhd-format.0.12.2 (0fd2dcaa358f) 2026-06-24 16:19.22: Waiting for resource in pool day11-builds 2026-06-24 17:14.18: Got resource from pool day11-builds 2026-06-24 17:14.18: [profile full] build vhd-format.0.12.2 2026-06-24 17:14.18: build vhd-format.0.12.2 (0fd2dcaa358f) === DEPENDENCIES (25 transitive) === base-threads.base c9e7bdbf5823 base-unix.base 7d1428be9ddb bigarray-compat.1.1.0 6a9ffb5ca493 compiler-cloning.enabled 439a1fc77aa6 conf-pkg-config.5 d5de2c6a88f9 cstruct.6.0.1 39f356871cef dune.3.23.1 a59dd9b14fe3 io-page.3.0.0 d3baca4116e2 num.1.6 efd5a307a10f ocaml.5.5.0 383268832c4b ocaml-base-compiler.5.5.0 522c248944c8 ocaml-compiler.5.5.0 eb1a8babf54c ocaml-compiler-libs.v0.17.0 d66bf6efa323 ocamlbuild.0.16.1 e57f00093c6a ocamlfind.1.9.8 b506a15fcd6c parsexp.v0.17.0 7a592903ad6e ppx_cstruct.6.0.1 5b9c70d17110 ppx_derivers.1.2.1 82026aa8af61 ppxlib.0.38.0 2aa2dfbf252b rresult.0.7.0 e0cb2763084b sexplib.v0.17.0 96575d3108de sexplib0.v0.17.0 166f8102230b stdlib-shims.0.3.0 e7f8a4f187fa topkg.1.1.1 ac206dbbd2b6 uuidm.0.9.10 a0866809ec64 === 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 "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__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/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-24 17:14.27: OK: build vhd-format.0.12.2 (runc: 4.1s, disk: 26KB) 2026-06-24 17:14.27: Job succeeded