Fix mingw windows build.

This commit is contained in:
David Brown 2016-09-04 16:38:17 +01:00
parent a865643d6c
commit 682fa59e42
6 changed files with 21 additions and 20 deletions

View file

@ -412,8 +412,8 @@ BEGIN
END Size;
PROCEDURE -readfile (fd: LONGINT; p: SYSTEM.ADDRESS; l: SYSTEM.ADDRESS; VAR n: SYSTEM.ADDRESS): SYSTEM.ADDRESS
"(address)ReadFile((HANDLE)fd, (void*)p, (DWORD)l, (DWORD*)n, 0)";
PROCEDURE -readfile (fd: LONGINT; p: SYSTEM.ADDRESS; l: SYSTEM.ADDRESS; VAR n: SYSTEM.ADDRESS): INTEGER
"(INTEGER)ReadFile((HANDLE)fd, (void*)p, (DWORD)l, (DWORD*)n, 0)";
PROCEDURE Read*(h: FileHandle; p: SYSTEM.ADDRESS; l: SYSTEM.ADDRESS; VAR n: SYSTEM.ADDRESS): ErrorCode;
VAR result: INTEGER;

View file

@ -19,6 +19,7 @@
#ifdef _WIN32
#define strncasecmp _strnicmp
char* getcwd(char* buf, size_t size);
#else
#include <sys/types.h>
#include <sys/stat.h>