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

diff --git a/ancient.ml b/ancient.ml
index ab357e2..dfce30c 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.3 2006-09-27 18:39:44 rich Exp $
+ * $Id: ancient.ml,v 1.4 2006-09-28 12:40:07 rich Exp $
  *)
 
 type 'a ancient
@@ -12,7 +12,7 @@ external delete : 'a ancient -> unit = "ancient_delete"
 
 type md
 
-external attach : Unix.file_descr -> md = "ancient_attach"
+external attach : Unix.file_descr -> nativeint -> md = "ancient_attach"
 
 external detach : md -> unit = "ancient_detach"