Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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

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;
varargs := true;
done2 := true;
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
done2 := true;

17
Scanner.pas
View File

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