Fixed incorrect max_memory_peek value.

[virt-mem.git] / lib / virt_mem.ml

diff --git a/lib/virt_mem.ml b/lib/virt_mem.ml
index 1445633..dd3c18a 100644 (file)
--- a/lib/virt_mem.ml
+++ b/lib/virt_mem.ml
@@ -38,7 +38,7 @@ let max_kallsyms_tabsize = 250_000L
 let kernel_size =
   if Sys.word_size = 32 then Sys.max_string_length
   else 0x100_0000
 let kernel_size =
   if Sys.word_size = 32 then Sys.max_string_length
   else 0x100_0000

-let max_memory_peek = 0x1000
+let max_memory_peek = 65536 (* XXX Use D.max_peek function *)

 
 type ksym = string
 
 
 type ksym = string