1 (* Mark objects as 'ancient' so they are taken out of the OCaml heap.
2 * $Id: ancient.ml,v 1.2 2006-09-27 15:36:18 rich Exp $
7 external mark : 'a -> 'a ancient = "ancient_mark"
9 external follow : 'a ancient -> 'a = "ancient_follow"
11 external delete : 'a ancient -> unit = "ancient_delete"
13 external share : Unix.file_descr -> 'a -> 'a ancient = "ancient_share"
15 external attach : Unix.file_descr -> 'a ancient = "ancient_attach"
17 external detach : 'a ancient -> unit = "ancient_detach"