Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-04 17:31:49 +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

1
Scanner.pas
View File

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