From e3b79ee907537feec9274b1bfab7e450fc97dbcf Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Thu, 1 Jan 1970 00:00:00 +0000 Subject: [PATCH 1/1] Elementary -- and broken -- implementation of virt-mem capture. --- lib/virt_mem_capture.ml | 22 ++++++++++++++++++---- 1 file changed, 18 insertions(+), 4 deletions(-) diff --git a/lib/virt_mem_capture.ml b/lib/virt_mem_capture.ml index 413af56..29f7466 100644 --- a/lib/virt_mem_capture.ml +++ b/lib/virt_mem_capture.ml @@ -65,11 +65,25 @@ let rec beforeksyms debug = function save_image image filename ) images -and save_image (_, domname, arch, mmap) filename = - printf (f_"virt-mem capture: saving kernel image from %s to filename %s\n") - domname filename; +and save_image (_, domname, arch, mem) filename = + let chan = open_out filename in - assert false + (* XXX At the moment, CONTRARY to what it says in the manual, we + * are only able to dump out raw data. We don't save the header, + * start address, etc. (which we should do). XXX + *) + assert (Virt_mem_mmap.nr_mappings mem = 1); + + Virt_mem_mmap.iter mem ( + fun start size -> + let bytes = Virt_mem_mmap.get_bytes mem start (Int64.to_int size) in + output_string chan bytes + ); + + close_out chan; + + printf (f_"virt-mem capture: wrote kernel image from %s to filename %s\n") + domname filename let summary = s_"capture memory image for post-mortem analysis" let description = s_"Capture a memory image to a file for later post-mortem -- 1.8.3.1