bitmatch -> bitstring

[virt-mem.git] / uname / virt_uname.ml

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index e90b5a6..6004bb8 100644 (file)
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -64,7 +64,7 @@ let run debug images =
       try
        let addr = lookup_ksym "init_uts_ns" in
 
-       let bs = Bitmatch.bitstring_of_string (get_bytes mem addr (65*6+4)) in
+       let bs = Bitstring.bitstring_of_string (get_bytes mem addr (65*6+4)) in
        (bitmatch bs with
         | { _ : 32 : int;              (* the kref, atomic_t, always 32 bits *)
             new_utsname : -1 : bitstring } ->
@@ -81,7 +81,7 @@ let run debug images =
            let addr = lookup_ksym "system_utsname" in
 
            let bs =
-             Bitmatch.bitstring_of_string (get_bytes mem addr (65*6)) in
+             Bitstring.bitstring_of_string (get_bytes mem addr (65*6)) in
            print_new_utsname name bs
          with
            Not_found ->