Restructure library for dealing with block mappings.

[virt-df.git] / lib / diskimage_mbr.ml

diff --git a/lib/diskimage_mbr.ml b/lib/diskimage_mbr.ml
index 91ec20f..07f9df8 100644 (file)
--- a/lib/diskimage_mbr.ml
+++ b/lib/diskimage_mbr.ml
@@ -42,6 +42,7 @@ let max_extended_partitions = 100
  * (2) 'partno' is the partition number, starting at 1
  *     (cf. /dev/hda1 is the first partition).
  * (3) 'dev' is the underlying block device.
+ * (4) natural blocksize to use is sector size.
  *)
 class partition_device partno start size dev =
   let devname = dev#name in
@@ -49,7 +50,7 @@ class partition_device partno start size dev =
   let start = start *^ sector_size64 in
   let size = size *^ sector_size64 in
 object (self)
-  inherit offset_device name start size dev
+  inherit offset_device name start size sector_size dev
 end
 
 (** Probe the