eric
/
Renegade-1.19
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add FileModeReadWrite on Win32

This commit is contained in:
Rick Parrish 2013-02-07 15:11:21 -05:00
parent 8c78673175
commit 11db959b87
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -14,7 +14,6 @@ Ported to Win32 by Rick Parrish<br />
TODO list:<br /> TODO list:<br />
<ul> <ul>
<li>Implement any REETODOs that appear in compiled executables</li> <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 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> <li>Find/correct any file i/o on untyped files where Words or LongInts are being read</li>
</ul> </ul>
@ -28,4 +27,5 @@ Completed list<br />
<li>WORD in RECORD to SMALLWORD</li> <li>WORD in RECORD to SMALLWORD</li>
<li>INTEGER in RECORD to SMALLINT</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>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> </ul>

3
SOURCE/RENEGADE.PAS
View File

@ -236,6 +236,9 @@ BEGIN
GetIntVec($14,Interrupt14); GetIntVec($14,Interrupt14);
{$ENDIF} {$ENDIF}
FileMode := 66; FileMode := 66;
{$IFDEF WIN32}
FileModeReadWrite := FileMode;
{$ENDIF}
ExitSave := ExitProc; ExitSave := ExitProc;
ExitProc := @ErrorHandle; ExitProc := @ErrorHandle;

3
SOURCE/RENEMAIL.PAS
View File

@ -1998,6 +1998,9 @@ BEGIN
GetDir(0,StartDir); GetDir(0,StartDir);
FileMode := 66; FileMode := 66;
{$IFDEF WIN32}
FileModeReadWrite := FileMode;
{$ENDIF}
GetGeneral(General); GetGeneral(General);