From 3039a7bd4c535a96adca368cd5543862e1617541 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Wed, 7 Mar 2012 23:12:02 +0000 Subject: [PATCH] Add debugging to dmesg code. --- src/main.ml | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/main.ml b/src/main.ml index 0615376..25b686b 100644 --- a/src/main.ml +++ b/src/main.ml @@ -164,16 +164,20 @@ See virt-dmesg(1) man page for more suggestions." guest_name; *) let log_buf = StringMap.find "log_buf" symbols in let log_buf = Kernel.follow_pointer k log_buf in + debug "log_buf = %Ld" log_buf; let log_buf_len = StringMap.find "log_buf_len" symbols in let log_buf_len = Kernel.get_int32 k log_buf_len in + debug "log_buf_len = %Ld" log_buf_len; (* let log_start = StringMap.find "log_start" symbols in let log_start = Kernel.get_int64 k log_start in *) let log_end = StringMap.find "log_end" symbols in let log_end = Kernel.get_int64 k log_end in + debug "log_end = %Ld" log_end; (* let con_start = StringMap.find "con_start" symbols in let con_start = Kernel.get_int64 k con_start in *) let logged_chars = StringMap.find "logged_chars" symbols in let logged_chars = Kernel.get_int64 k logged_chars in + debug "logged_chars = %Ld" logged_chars; (* This is basically the same algorithm from * printk.c:do_syslog type=3, translated into OCaml. Unlike -- 1.8.3.1