From: Richard W.M. Jones <rjones@redhat.com> <"Richard W.M. Jones <rjones@redhat.com>">
Date: Tue, 3 Jun 2008 19:14:01 +0000 (+0100)
Subject: virt-uname command done.
X-Git-Url: http://git.annexia.org/?p=virt-mem.git;a=commitdiff_plain;h=4d9710538cd03554cf343f67bea4b0470561e1d0

virt-uname command done.
---

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index dcdf5c8..14a8bcc 100644
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -34,7 +34,7 @@ DESCRIPTION
   architecture and node name for virtual machines running under
   libvirt."
 
-let verbose, images = Virt_mem.start usage
+let _, images = Virt_mem.start usage
 
 let () =
   (* Print new_utsname structure from bitstring. *)
@@ -72,7 +72,6 @@ let () =
        *)
       try
 	let addr = lookup_ksym "init_uts_ns" in
-	if verbose then printf "init_uts_ns at %Lx\n" addr;
 
 	let bs = Bitmatch.bitstring_of_string (get_bytes mem addr (65*6+4)) in
 	(bitmatch bs with
@@ -89,7 +88,6 @@ let () =
 	   *)
 	  try
 	    let addr = lookup_ksym "system_utsname" in
-	    if verbose then printf "system_utsname at %Lx\n" addr;
 
 	    let bs =
 	      Bitmatch.bitstring_of_string (get_bytes mem addr (65*6)) in