Allow trailing comma in enum (as in C99).

Patch from Kelvin Sherlock.
This commit is contained in:
Stephen Heumann 2017-06-17 22:36:09 -05:00
parent a75d18a45c
commit db2a09bd1d

View File

@ -2821,6 +2821,9 @@ case token.kind of
begin begin
done := false; done := false;
NextToken; NextToken;
{kws -- allow trailing , in enum }
{ C99 6.7.2.2 Enumeration specifiers }
if token.kind = rbracech then done := true;
end {if} end {if}
else else
done := true; done := true;