Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-18 03:29:49 +00:00
Code Issues Projects Releases Wiki Activity

TermError doesn't always initalize the error message. commonly seen with compile +T.

Browse Source
This commit is contained in:
Kelvin Sherlock 2018-03-27 20:19:39 -04:00
parent 29de867039
commit c2b24f2854
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
CCommon.pas
View File

@ -929,7 +929,7 @@ var
begin {TermError} begin {TermError}
case errnum of {print the error} case errnum of {print the error}
0 : ; 0 : msg := '' ;
1 : msg := concat('Error reading ', sourceFileGS.theString.theString); 1 : msg := concat('Error reading ', sourceFileGS.theString.theString);
2 : msg := concat('Error purging ', sourceFileGS.theString.theString); 2 : msg := concat('Error purging ', sourceFileGS.theString.theString);
3 : msg := 'terminal compiler error'; 3 : msg := 'terminal compiler error';
@ -941,7 +941,10 @@ case errnum of {print the error}
9 : msg := concat('Error writing ', objFile.theString.theString); 9 : msg := concat('Error writing ', objFile.theString.theString);
10: msg := 'ORCA/C requires version 2.0 or later of the shell'; 10: msg := 'ORCA/C requires version 2.0 or later of the shell';
11: msg := 'The program is too large to compile to memory -- use Compile to Disk'; 11: msg := 'The program is too large to compile to memory -- use Compile to Disk';
otherwise: Error(57); otherwise: begin
msg := '';
Error(57);
end;
end; {case} end; {case}
with ffDCBGS do begin {purge the source file} with ffDCBGS do begin {purge the source file}
pCount := 5; pCount := 5;