bitmatch -> bitstring

[virt-mem.git] / lib / virt_mem.ml

diff --git a/lib/virt_mem.ml b/lib/virt_mem.ml
index 61d5968..fcefa3c 100644 (file)
--- a/lib/virt_mem.ml
+++ b/lib/virt_mem.ml
@@ -188,9 +188,9 @@ Options:") cmd summary description in
   let set_endian = function
     | "auto" -> def_endian := None
     | "le" | "little" | "littleendian" | "intel" ->
-       def_endian := Some Bitmatch.LittleEndian
+       def_endian := Some Bitstring.LittleEndian
     | "be" | "big" | "bigendian" | "motorola" ->
-       def_endian := Some Bitmatch.BigEndian
+       def_endian := Some Bitstring.BigEndian
     | str -> failwith (sprintf (f_"set_endian: %s: unknown endianness") str)
   in
 
@@ -627,7 +627,7 @@ Use 'virt-mem --help' for more help or read the manual page virt-mem(1)");
 
              (* Load the whole symbol table as a bitstring. *)
              let ksymtab =
-               Bitmatch.bitstring_of_string
+               Bitstring.bitstring_of_string
                  (MMap.get_bytes mem ksymtab_addr
                     (Int64.to_int ksymtab_size)) in