open Virt_mem_utils
open Virt_mem_types
-let run debug ({ domname = domname }, _, utsname) =
+let run debug { domname = domname; utsname = utsname } =
match utsname with
| 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
architecture and node name for virtual machines running under
libvirt."
-let () = Virt_mem.register "uname" summary description ~run
+let () = Virt_mem.register "uname" summary description ~needs_utsname:true ~run