From 11db959b87afc0395a731e9da5a9378d0ce8d713 Mon Sep 17 00:00:00 2001
From: Rick Parrish <github@rick.parrish>
Date: Thu, 7 Feb 2013 15:11:21 -0500
Subject: [PATCH] Add FileModeReadWrite on Win32

---
 README.md           | 2 +-
 SOURCE/RENEGADE.PAS | 3 +++
 SOURCE/RENEMAIL.PAS | 3 +++
 3 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index d6878ce..f90534b 100644
--- a/README.md
+++ b/README.md
@@ -14,7 +14,6 @@ Ported to Win32 by Rick Parrish<br />
 TODO list:<br />
 <ul>
   <li>Implement any REETODOs that appear in compiled executables</li>
-  <li>Investigate FILEMODE usage to see if FILEMODEREADWRITE, TEXTMODEREAD or TEXTMODEREADWRITE should be used</li>
   <li>Find/correct any usage of FOR loop variables after the loop (since they are 1 greater in VP than in BP</li>
   <li>Find/correct any file i/o on untyped files where Words or LongInts are being read</li>
 </ul>
@@ -28,4 +27,5 @@ Completed list<br />
   <li>WORD in RECORD to SMALLWORD</li>
   <li>INTEGER in RECORD to SMALLINT</li>
   <li>Anything passing 0 for the Attr parameter to FindFirst should pass AnyFile instead (VP returns no files when 0 is passed for Attr)</li>
+  <li>Investigate FILEMODE usage to see if FILEMODEREADWRITE, TEXTMODEREAD or TEXTMODEREADWRITE should be used</li>
 </ul>
diff --git a/SOURCE/RENEGADE.PAS b/SOURCE/RENEGADE.PAS
index 83c93e7..3a2391f 100644
--- a/SOURCE/RENEGADE.PAS
+++ b/SOURCE/RENEGADE.PAS
@@ -236,6 +236,9 @@ BEGIN
   GetIntVec($14,Interrupt14);
 {$ENDIF}
   FileMode := 66;
+{$IFDEF WIN32}
+  FileModeReadWrite := FileMode;
+{$ENDIF}
   ExitSave := ExitProc;
   ExitProc := @ErrorHandle;
 
diff --git a/SOURCE/RENEMAIL.PAS b/SOURCE/RENEMAIL.PAS
index b37e871..01f92b3 100644
--- a/SOURCE/RENEMAIL.PAS
+++ b/SOURCE/RENEMAIL.PAS
@@ -1998,6 +1998,9 @@ BEGIN
   GetDir(0,StartDir);
 
   FileMode := 66;
+{$IFDEF WIN32}
+  FileModeReadWrite := FileMode;
+{$ENDIF}
 
   GetGeneral(General);