From: Richard W.M. Jones <rjones@redhat.com>
Date: Wed, 7 Mar 2012 23:12:02 +0000 (+0000)
Subject: Add debugging to dmesg code.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;p=virt-dmesg.git

Add debugging to dmesg code.
---

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