Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-06-12 05:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Do not accept %:%: digraph in places where ## would not be accepted.

Browse Source 
This could happen in obscure cases like the following (outside a macro):

for(int b;;-%:%:- b) ;
This commit is contained in:
Stephen Heumann 2020-01-21 07:21:58 -06:00
parent 06a3719304
commit d8097e6b31
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Scanner.pas
View File

@ -4282,6 +4282,8 @@ case charKinds[ord(ch)] of
token.isDigraph := true;
if (ch = '%') and (chPtr <> eofPtr) and (chr(chPtr^) = ':') then begin
token.kind := poundpoundop; {%:%: digraph}
if charKinds[ord('#')] = illegal then
Error(1);
NextCh;
NextCh;
end