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

OF WORD and OF INTEGER converted

This commit is contained in:
Rick Parrish 2013-02-07 14:17:50 -05:00
parent 37ffa5ebff
commit 19e2dcdab0
6 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
README.md
View File

@ -15,16 +15,17 @@ TODO list:<br />
<ul> <ul>
<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>TYPEs of OF WORD to OF SMALLWORD (just in case they're used in a RECORD)</li>
<li>TYPEs of OF INTEGER to OF SMALLINT (just in case they're used in a RECORD)</li>
<li>Implement any REETODOs that appear in compiled executables</li> <li>Implement any REETODOs that appear in compiled executables</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> <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>
</ul> </ul>
Completed list<br /> Completed list<br />
<ul> <ul>
<li>IFDEF out anything that doesn't compile and make a WIN32 placeholder that does a "WriteLn('REETODO UNIT FUNCTION'); Halt;" (then you can grep the executables for REETODO to see which REETODOs actually need to be implemented)</li> <li>IFDEF out anything that doesn't compile and make a WIN32 placeholder that does a "WriteLn('REETODO UNIT FUNCTION'); Halt;" (then you can grep the executables for REETODO to see which REETODOs actually need to be implemented)</li>
<li>IFDEF out any ASM code blocks and handle the same as above</li> <li>IFDEF out any ASM code blocks and handle the same as above</li>
<li>TYPEs of OF WORD to OF SMALLWORD (just in case they're used in a RECORD)</li>
<li>TYPEs of OF INTEGER to OF SMALLINT (just in case they're used in a RECORD)</li>
</ul> </ul>

2
SOURCE/COMMON.PAS
View File

@ -161,7 +161,7 @@ TYPE
ConferenceKeyType = SET OF '@'..'Z'; ConferenceKeyType = SET OF '@'..'Z';
CompArrayType = ARRAY[0..1] OF INTEGER; CompArrayType = ARRAY[0..1] OF SMALLINT;
CONST CONST
MCIBuffer: MCIBufferPtr = NIL; MCIBuffer: MCIBufferPtr = NIL;

2
SOURCE/EMAIL.PAS
View File

@ -671,7 +671,7 @@ END;
PROCEDURE ReadMail; PROCEDURE ReadMail;
TYPE TYPE
MessageArrayType = ARRAY [1..255] OF Word; MessageArrayType = ARRAY [1..255] OF SmallWord;
VAR VAR
MessageArray: MessageArrayType; MessageArray: MessageArrayType;
User: UserRecordType; User: UserRecordType;

2
SOURCE/FILE11.PAS
View File

@ -50,7 +50,7 @@ USES
TimeFunc; TimeFunc;
TYPE TYPE
DownLoadArrayType = ARRAY [0..99] OF Integer; DownLoadArrayType = ARRAY [0..99] OF SmallInt;
VAR VAR
DLArray: DownloadArrayType; DLArray: DownloadArrayType;

4
SOURCE/RECORDS.PAS
View File

@ -46,6 +46,10 @@ CONST
User_Phone_None = ''; {None for user phone fields} User_Phone_None = ''; {None for user phone fields}
TYPE TYPE
{$IFDEF MSDOS}
SmallInt = Integer;
SmallWord = Word;
{$ENDIF}
AStr = STRING[160]; AStr = STRING[160];
Str1 = STRING[1]; Str1 = STRING[1];
Str2 = STRING[2]; Str2 = STRING[2];

6
SOURCE/RENEMAIL.PAS
View File

@ -68,7 +68,7 @@ VAR
FidoFile: FILE; FidoFile: FILE;
HiWaterF: FILE OF Word; HiWaterF: FILE OF SmallWord;
General: GeneralRecordType; General: GeneralRecordType;
@ -719,7 +719,7 @@ END;
PROCEDURE GetMsgLst(MemMsgPath: STRING; VAR LowMsg,HighMsg: Word); PROCEDURE GetMsgLst(MemMsgPath: STRING; VAR LowMsg,HighMsg: Word);
VAR VAR
FidoMsgNum, FidoMsgNum,
HiWater: Word; HiWater: SmallWord;
BEGIN BEGIN
HiWater := 1; HiWater := 1;
IF (NOT IsNetMail) THEN IF (NOT IsNetMail) THEN
@ -797,7 +797,7 @@ BEGIN
LowMsg := 2; LowMsg := 2;
END; END;
PROCEDURE UpdateHiWater(MemMsgPath: STRING; HighWater: Word); PROCEDURE UpdateHiWater(MemMsgPath: STRING; HighWater: SmallWord);
BEGIN BEGIN
Assign(HiWaterF,MemMsgPath+'HI_WATER.MRK'); Assign(HiWaterF,MemMsgPath+'HI_WATER.MRK');
{$I-} ReWrite(HiWaterF); {$I+} {$I-} ReWrite(HiWaterF); {$I+}