X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-df%2Fvirt_df_mbr.ml;h=75e06619980a683e8613d70c5ba5869860f61dfd;hb=0dc5575b79e4d5e003966eaaeb4d0a6a6e8802ed;hp=b56189c45a86d342dcbc1f42e36232916748d7cd;hpb=0019c13c600d34f12778e849246711bb20ba4ee2;p=virt-top.git

diff --git a/virt-df/virt_df_mbr.ml b/virt-df/virt_df_mbr.ml
index b56189c..75e0661 100644
--- a/virt-df/virt_df_mbr.ml
+++ b/virt-df/virt_df_mbr.ml
@@ -133,8 +133,9 @@ and parse_mbr_entry dev i bits =
 and make_mbr_entry part_status dev partno part_type first_lba part_size =
   let first_lba = uint64_of_int32 first_lba in
   let part_size = uint64_of_int32 part_size in
-  eprintf "first_lba = %Lx\n" first_lba;
-  eprintf "part_size = %Lx\n" part_size;
+  if !debug then
+    eprintf "make_mbr_entry: first_lba = %Lx part_size = %Lx\n%!"
+      first_lba part_size;
   { part_status = part_status;
     part_type = part_type;
     part_dev = new partition_device dev partno first_lba part_size;