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

Remove support for separate . . . as equivalent to a ... token.

Browse Source 
The scanner has been updated so that ... should always get recognized as a single token, so this is no longer necessary as a workaround. Any code that actually uses separate . . .  is non-standard and will need to be changed.
This commit is contained in:
Stephen Heumann 2022-10-19 18:14:14 -05:00
parent 6d8ca42734
commit bdf212ec6b
2 changed files with 3 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Parser.pas
View File

@ -1508,14 +1508,7 @@ var
NextToken; NextToken;
varargs := true; varargs := true;
done2 := true; done2 := true;
end {if} end; {if}
else if token.kind = dotch then begin
NextToken;
Match(dotch,89);
Match(dotch,89);
varargs := true;
done2 := true;
end; {else if}
end {if} end {if}
else else
done2 := true; done2 := true;

15
Scanner.pas
View File

@ -2579,21 +2579,8 @@ var
done := false; done := false;
end; {if} end; {if}
end {if} end {if}
else if token.kind in [dotch,dotdotdotsy] then begin else if token.kind = dotdotdotsy then begin
if token.kind = dotdotdotsy then
NextToken
else begin
NextToken; NextToken;
if token.kind = dotch then begin
NextToken;
if token.kind = dotch then
NextToken
else
Error(89);
end
else
Error(89);
end; {else}
new(np); new(np);
np^.next := nil; np^.next := nil;
np^.str := '__VA_ARGS__'; np^.str := '__VA_ARGS__';