-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; ksyms = ksyms } =
+ 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" ksyms in
+ let log_buf = follow_pointer mem log_buf in
+ let log_buf_len = Ksymmap.find "log_buf_len" ksyms in
+ let log_buf_len = Int64.of_int32 (get_C_int mem log_buf_len) in
+ (* let log_start = Ksymmap.find "log_start" ksyms in