X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=uname%2Fvirt_uname.ml;h=6004bb860201c2b5c381e54fe09ee7a91b8d739a;hb=89d41f7614612cf991d6005e7c1e20cd502a5404;hp=f2f6ddc6bc23eb3d13445c8cde0a033ecfa4e951;hpb=b70c967911e197b74d6d7ad98e3df9240d82572f;p=virt-mem.git

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index f2f6ddc..6004bb8 100644
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -57,14 +57,14 @@ let run debug images =
   in
 
   List.iter (
-    fun (name, arch, mem, lookup_ksym) ->
+    fun (_, name, arch, mem, lookup_ksym) ->
       (* In Linux 2.6.25, the symbol is init_uts_ns.
        * http://lxr.linux.no/linux/init/version.c
        *)
       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 ->
@@ -94,4 +94,4 @@ virt-uname prints the uname information such as OS version,
 architecture and node name for virtual machines running under
 libvirt."
 
-let () = Virt_mem.register "uname" summary description true run
+let () = Virt_mem.register "uname" summary description ~run