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