X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fvirt_mem_mmap.mli;h=78f9b8cea9a4c41da0dc10914c08279824384b2a;hb=07a7cdbdb7c9d2c066ae9fc81bfbf10c942f9ead;hp=0294efd94865999ad6ec93cb16612c86d201c96e;hpb=b8aef502747b039b20877f99f3d8986b6a9329d2;p=virt-mem.git

diff --git a/lib/virt_mem_mmap.mli b/lib/virt_mem_mmap.mli
index 0294efd..78f9b8c 100644
--- a/lib/virt_mem_mmap.mli
+++ b/lib/virt_mem_mmap.mli
@@ -99,6 +99,13 @@ type ('ws,'e,'hm) t
 type addr = int64
 (** Virtual memory addresses (even on 32 bit machines). *)
 
+type 'a typed_addr
+(** Virtual memory addresses with an implicit type, one which we know
+    or believe is pointing at a struct of some known type. *)
+
+external unsafe_addr_of_typed_addr : 'a typed_addr -> addr = "%identity"
+external unsafe_typed_addr_of_addr : addr -> 'a typed_addr = "%identity"
+
 (** {2 Create a memory map, add mappings} *)
 
 val create : unit -> ([`NoWordsize], [`NoEndian], [`NoMappings]) t