From a82c3665042b80a0febcbffdf0577cd37de349ff Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Fri, 7 Jun 2002 09:49:45 +0000
Subject: Portage Mingw et revision du portage Win32/MSVC
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4899 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
otherlibs/win32unix/lockf.c | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
(limited to 'otherlibs/win32unix/lockf.c')
diff --git a/otherlibs/win32unix/lockf.c b/otherlibs/win32unix/lockf.c
index 84ed2476e..c2c9c3507 100644
--- a/otherlibs/win32unix/lockf.c
+++ b/otherlibs/win32unix/lockf.c
@@ -17,6 +17,7 @@
#include <errno.h>
#include <fcntl.h>
#include <mlvalues.h>
+#include <fail.h>
#include "unixsupport.h"
#include <stdio.h>
@@ -82,12 +83,12 @@ CAMLprim value unix_lockf(value fd, value cmd, value span)
VersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
if(GetVersionEx(&VersionInfo) == 0)
{
- return invalid_argument("lockf only supported on WIN32_NT platforms: could not determine current platform.");
+ invalid_argument("lockf only supported on WIN32_NT platforms: could not determine current platform.");
}
/* file locking only exists on NT versions */
if(VersionInfo.dwPlatformId != VER_PLATFORM_WIN32_NT)
{
- return invalid_argument("lockf only supported on WIN32_NT platforms");
+ invalid_argument("lockf only supported on WIN32_NT platforms");
}
h = Handle_val(fd);
--
cgit v1.2.3-70-g09d2