git.annexia.org
/
ocaml-ancient.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added:
[ocaml-ancient.git]
/
ancient.ml
diff --git
a/ancient.ml
b/ancient.ml
index
dfce30c
..
f8b7088
100644
(file)
--- a/
ancient.ml
+++ b/
ancient.ml
@@
-1,5
+1,5
@@
(* Mark objects as 'ancient' so they are taken out of the OCaml heap.
(* 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
*)
type 'a ancient
@@
-10,6
+10,8
@@
external follow : 'a ancient -> 'a = "ancient_follow"
external delete : 'a ancient -> unit = "ancient_delete"
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"
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"
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 *)