-let run debug images =
- List.iter (
- fun (name, arch, mem, lookup_ksym) ->
- try
- (* I don't know why but this symbol doesn't exist in 2.6.9
- * even in kallsyms. Hence this won't work with that kernel.
- * It's possible we can fall back to memory scanning. XXX
- *)
- let log_buf = lookup_ksym "log_buf" in
- let log_buf = follow_pointer mem log_buf in
- let log_buf_len = lookup_ksym "log_buf_len" in
- let log_buf_len = Int64.of_int32 (get_C_int mem log_buf_len) in
-(* let log_start = lookup_ksym "log_start" in
+let run debug ({ domname = domname; mem = mem }, ksymmap, _) =
+ try
+ (* I don't know why but this symbol doesn't exist in 2.6.9
+ * even in kallsyms. Hence this won't work with that kernel.
+ * It's possible we can fall back to memory scanning. XXX
+ *)
+ let log_buf = Ksymmap.find "log_buf" ksymmap in
+ let log_buf = follow_pointer mem log_buf in
+ let log_buf_len = Ksymmap.find "log_buf_len" ksymmap in
+ let log_buf_len = Int64.of_int32 (get_C_int mem log_buf_len) in
+ (* let log_start = Ksymmap.find "log_start" ksymmap in