From 3798b9c5373fa73c8bde65259d859097b9623c47 Mon Sep 17 00:00:00 2001 From: David Brown Date: Sat, 19 Nov 2016 00:42:35 +0000 Subject: [PATCH] Fix mingw/msc support on pre Windows 10 systems. --- src/runtime/Platformwindows.Mod | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/runtime/Platformwindows.Mod b/src/runtime/Platformwindows.Mod index 6a80bff4..bde70184 100644 --- a/src/runtime/Platformwindows.Mod +++ b/src/runtime/Platformwindows.Mod @@ -435,12 +435,13 @@ END ReadBuf; -PROCEDURE -writefile(fd: FileHandle; p: SYSTEM.ADDRESS; l: LONGINT): INTEGER -"(INTEGER)WriteFile((HANDLE)fd, (void*)(p), (DWORD)l, 0,0)"; +PROCEDURE -writefile(fd: FileHandle; p: SYSTEM.ADDRESS; l: LONGINT; VAR n: SYSTEM.INT32): INTEGER +"(INTEGER)WriteFile((HANDLE)fd, (void*)(p), (DWORD)l, (DWORD*)n, 0)"; PROCEDURE Write*(h: FileHandle; p: SYSTEM.ADDRESS; l: LONGINT): ErrorCode; +VAR n: SYSTEM.INT32; BEGIN - IF writefile(h, p, l) = 0 THEN RETURN err() ELSE RETURN 0 END + IF writefile(h, p, l, n) = 0 THEN RETURN err() ELSE RETURN 0 END END Write;