1 files changed, 12 insertions, 0 deletions
diff --git a/otherlibs/unix/truncate.c b/otherlibs/unix/truncate.c
index a3812ae56..009d3c0e5 100644
--- a/otherlibs/unix/truncate.c
+++ b/otherlibs/unix/truncate.c
@@ -13,8 +13,13 @@
 
 /* $Id$ */
 
+#include <sys/types.h>
 #include <mlvalues.h>
+#include <io.h>
 #include "unixsupport.h"
+#ifdef HAS_UNISTD
+#include <unistd.h>
+#endif
 
 #ifdef HAS_TRUNCATE
 
@@ -25,6 +30,13 @@ CAMLprim value unix_truncate(value path, value len)
   return Val_unit;
 }
 
+CAMLprim value unix_truncate_64(value path, value len)
+{
+  if (truncate(String_val(path), File_offset_val(len)) == -1)
+    uerror("truncate", path);
+  return Val_unit;
+}
+
 #else
 
 CAMLprim value unix_truncate(value path, value len)