Allow trailing comma in enum (as in C99).

Patch from Kelvin Sherlock.
2024-12-21 16:29:31 +00:00 · 2017-06-17 22:36:09 -05:00 · 2017-06-17 22:36:09 -05:00 · db2a09bd1d
commit db2a09bd1d
parent a75d18a45c
1 changed files with 3 additions and 0 deletions
--- a/Parser.pas
+++ b/Parser.pas
@ -2821,6 +2821,9 @@ case token.kind of
               begin
               done := false;
               NextToken;
+               {kws -- allow trailing , in enum }
+               { C99 6.7.2.2 Enumeration specifiers }
+               if token.kind = rbracech then done := true;
               end {if}
            else
               done := true;