git.annexia.org
/
virt-df.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix Makefiles to use new bitmatch META file.
[virt-df.git]
/
lib
/
diskimage_mbr.ml
diff --git
a/lib/diskimage_mbr.ml
b/lib/diskimage_mbr.ml
index
6839380
..
4acbaf3
100644
(file)
--- a/
lib/diskimage_mbr.ml
+++ b/
lib/diskimage_mbr.ml
@@
-185,14
+185,14
@@
and probe_extended_partition max dev start =
* to the current sector.
*)
let ppriv =
* to the current sector.
*)
let ppriv =
- { ppriv with mbr_part_start = ppriv.mbr_part_start + start } in
+ { ppriv with mbr_part_start = ppriv.mbr_part_start +
^
start } in
let (next, npriv) = parse_mbr_entry next in
if next.part_status = NullEntry then
[ part, ppriv ] (* End of list. *)
else (
let (next, npriv) = parse_mbr_entry next in
if next.part_status = NullEntry then
[ part, ppriv ] (* End of list. *)
else (
- let start_of_next = start + npriv.mbr_part_start in
+ let start_of_next = start +
^
npriv.mbr_part_start in
(part, ppriv) ::
probe_extended_partition (max-1) dev start_of_next
)
(part, ppriv) ::
probe_extended_partition (max-1) dev start_of_next
)