From fcb51a6c23cc62d5b8b647b42d93533cffd83805 Mon Sep 17 00:00:00 2001
From: David Brown <dave.github@brownsmeet.com>
Date: Sat, 1 Oct 2016 17:58:16 +0100
Subject: [PATCH] Fix Platform.Write on 32 bit builds.

---
 src/runtime/Platformunix.Mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/Platformunix.Mod b/src/runtime/Platformunix.Mod
index 034906bd..3db3f2d7 100644
--- a/src/runtime/Platformunix.Mod
+++ b/src/runtime/Platformunix.Mod
@@ -389,7 +389,7 @@ END ReadBuf;
 
 
 
-PROCEDURE -writefile(fd: LONGINT; p: SYSTEM.ADDRESS; l: SYSTEM.ADDRESS): SYSTEM.ADDRESS
+PROCEDURE -writefile(fd: LONGINT; p: SYSTEM.ADDRESS; l: LONGINT): SYSTEM.ADDRESS
 "write(fd, (void*)(address)(p), l)";
 
 PROCEDURE Write*(h: FileHandle; p: SYSTEM.ADDRESS; l: LONGINT): ErrorCode;