Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-04-07 17:37:11 +00:00
Code Issues Projects Releases Wiki Activity

Implement #warning preprocessor directive.

Browse Source 
This prints a warning message, but does not abort compilation.

#warning is non-standard, but supported by other common compilers like GCC and Clang.
This commit is contained in:
Stephen Heumann 2017-09-10 14:35:32 -05:00
parent f4ee840d9e
commit 65009db03f
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Scanner.pas
View File

@ -2243,7 +2243,7 @@ var
end; {DoEndif}
procedure DoError;
procedure DoError (isError: boolean);
{ #error pp-tokens(opt) }
@ -2256,9 +2256,13 @@ var
begin {DoError}
lFirstPtr := firstPtr;
numErrors := numErrors+1;
if isError then
numErrors := numErrors+1;
new(msg);
msg^ := '#error:';
if isError then
msg^ := '#error:'
else
msg^ := '#warning:';
NextToken; {skip the command name}
while not (token.kind in [eolsy, eofsy]) do begin
msg^ := concat(msg^, ' ');
@ -2278,7 +2282,7 @@ var
NextToken;
end; {while}
writeln(msg^);
if terminalErrors then begin
if isError and terminalErrors then begin
if enterEditor then
ExitToEditor(msg, ord4(lFirstPtr)-ord4(bofPtr))
else
@ -2518,7 +2522,7 @@ skipping := false;
NextCh; {skip the '#' char}
while charKinds[ord(ch)] = ch_white do {skip white space}
NextCh;
if ch in ['a','d','e','i','l','p','u'] then begin
if ch in ['a','d','e','i','l','p','u','w'] then begin
NextToken;
case token.kind of
ifsy: begin
@ -2560,7 +2564,7 @@ if ch in ['a','d','e','i','l','p','u'] then begin
end {else if}
else if token.name^ = 'error' then begin
if tskipping then goto 2;
DoError;
DoError(true);
goto 2;
end; {else if}
'i':
@ -2783,6 +2787,12 @@ if ch in ['a','d','e','i','l','p','u'] then begin
DoUndef;
goto 2;
end; {if}
'w':
if token.name^ = 'warning' then begin
if tskipping then goto 2;
DoError(false);
goto 2;
end; {if}
otherwise: Error(57);
end; {case}
end;