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

Allow unknown preprocessor directives in skipped blocks.

Browse Source 
For example, the following should not generate an error:

#if 0
#warning "..."
#endif
This commit is contained in:
Stephen Heumann 2017-07-20 17:32:06 -05:00
parent e242f03501
commit d9523c145c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Scanner.pas
View File

@ -2790,7 +2790,8 @@ else if charKinds[ord(ch)] = ch_eol {allow null commands}
NextToken;
goto 2;
end; {else if}
Error(8); {bad preprocessor command}
if not tSkipping then
Error(8); {bad preprocessor command}
2:
charKinds[ord('#')] := ch_pound; {allow # as a token}
expandMacros := false; {skip to the end of the line}