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
TODO list:
@@ -28,4 +27,5 @@ Completed list
  • WORD in RECORD to SMALLWORD
  • INTEGER in RECORD to SMALLINT
  • Anything passing 0 for the Attr parameter to FindFirst should pass AnyFile instead (VP returns no files when 0 is passed for Attr)
  • +
  • Investigate FILEMODE usage to see if FILEMODEREADWRITE, TEXTMODEREAD or TEXTMODEREADWRITE should be used
  • 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);