+ (* Before utsname analysis. *)
+ (match beforeutsname with
+ | None -> ()
+ | Some beforeutsname -> List.iter (beforeutsname debug) images
+ );
+
+ (* If there are no more callback functions, then there is no point
+ * continuing with the rest of the program (kernel version analysis) ...
+ *)
+ if run = None then exit 0;
+
+ (* Get the kernel version (utsname analysis). *)
+ let images = List.map (Virt_mem_utsname.find_utsname debug) images in
+