We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 069b82c commit bcf47a8Copy full SHA for bcf47a8
ocaml/xapi/qcow_tool_wrapper.ml
@@ -54,6 +54,11 @@ let send ?relative_to (progress_cb : int -> unit) (unix_fd : Unix.file_descr)
54
to avoid reading all of the raw disk *)
55
let input_fd = Result.map read_header qcow_path |> Result.to_option in
56
57
+ (* TODO: If VHD headers are to be consulted as well, qcow2-to-stdout
58
+ needs to properly account for cluster_bits. Currently QCOW2 export
59
+ from VHD-backed VDIs will just revert to raw, without any
60
+ allocation accounting. *)
61
+
62
(* Parse the header of the VDI we are diffing against as well *)
63
let relative_to_qcow_path =
64
match relative_to with
0 commit comments