X-Git-Url: http://git.annexia.org/?p=virt-mem.git;a=blobdiff_plain;f=uname%2Fvirt_uname.ml;h=4b38d4cd792878da5c92c01d4deb64e6cf5404f1;hp=d90974d2d8b950e85c01645414b617656b8b0849;hb=f6bb3caa719a564615e7fd2f21a3ad5bca010a88;hpb=a5fb949b73a604972a9b339fd6ec2786ea59f23c;ds=inline

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index d90974d..4b38d4c 100644
--- a/uname/virt_uname.ml
+++ b/uname/virt_uname.ml
@@ -28,8 +28,8 @@ let run debug { domname = domname } { utsname = utsname } =
   | Some u ->
       printf "%s: %s %s %s %s %s %s\n"
 	domname
-	u.kernel_name u.nodename u.kernel_release
-	u.kernel_version u.machine u.domainname
+	u.uts_kernel_name u.uts_nodename u.uts_kernel_release
+	u.uts_kernel_version u.uts_machine u.uts_domainname
   | None ->
       eprintf (f_"%s: no system_utsname in kernel image\n") domname