|
@@ -3735,7 +3735,9 @@ begin
|
|
NextToken
|
|
NextToken
|
|
until CurToken = tkSquaredBraceClose;
|
|
until CurToken = tkSquaredBraceClose;
|
|
ExpectToken(tkSemicolon);
|
|
ExpectToken(tkSemicolon);
|
|
- end;
|
|
|
|
|
|
+ end
|
|
|
|
+ else if CurToken<>tkSemicolon then
|
|
|
|
+ CheckToken(tkSemicolon);
|
|
Done:=(CurToken=tkSemiColon);
|
|
Done:=(CurToken=tkSemiColon);
|
|
if Done then
|
|
if Done then
|
|
begin
|
|
begin
|