X-Git-Url: http://git.annexia.org/?p=ocaml-ancient.git;a=blobdiff_plain;f=ancient.ml;h=f8b708883bc4bd385e242cf9cec19e5db503b4ff;hp=dfce30c8cd6f6e52b283724d70a83e9651a33c41;hb=2f2d5af5cf03640650c8b49933c36665fdf52d61;hpb=c3bd88fb6d9ede9d14cd24cd70b5b9352002ecc2

diff --git a/ancient.ml b/ancient.ml
index dfce30c..f8b7088 100644
--- a/ancient.ml
+++ b/ancient.ml
@@ -1,5 +1,5 @@
 (* Mark objects as 'ancient' so they are taken out of the OCaml heap.
- * $Id: ancient.ml,v 1.4 2006-09-28 12:40:07 rich Exp $
+ * $Id: ancient.ml,v 1.5 2006-10-09 12:18:05 rich Exp $
  *)
 
 type 'a ancient
@@ -10,6 +10,8 @@ external follow : 'a ancient -> 'a = "ancient_follow"
 
 external delete : 'a ancient -> unit = "ancient_delete"
 
+external is_ancient : 'a -> bool = "ancient_is_ancient"
+
 type md
 
 external attach : Unix.file_descr -> nativeint -> md = "ancient_attach"
@@ -19,3 +21,5 @@ external detach : md -> unit = "ancient_detach"
 external share : md -> int -> 'a -> 'a ancient = "ancient_share"
 
 external get : md -> int -> 'a ancient = "ancient_get"
+
+let max_key = 1023 (* MMALLOC_KEYS-1.  See mmprivate.h *)