paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 02:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Last field before end does not need a semicolon

Browse Source 
git-svn-id: trunk@47496 -
(cherry picked from commit 185048c631)
This commit is contained in:
michael 2020-11-20 18:13:46 +00:00 committed by Florian Klämpfl
parent adb4af12a0
commit 388ffe420e
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/pparser.pp
View File

@ -7308,6 +7308,8 @@ begin
if not (AType.ObjKind in okWithFields) then if not (AType.ObjKind in okWithFields) then
ParseExc(nParserNoFieldsAllowed,SParserNoFieldsAllowedInX,[ObjKindNames[AType.ObjKind]]); ParseExc(nParserNoFieldsAllowed,SParserNoFieldsAllowedInX,[ObjKindNames[AType.ObjKind]]);
ParseClassFields(AType,CurVisibility,CurSection=stClassVar); ParseClassFields(AType,CurVisibility,CurSection=stClassVar);
if Curtoken=tkEnd then // case Ta = Class x : String end;
UngetToken;
HaveClass:=False; HaveClass:=False;
end; end;
stClassVar: stClassVar:

1
packages/fcl-passrc/tests/tcclasstype.pas
View File

@ -981,7 +981,6 @@ end;
procedure TTestClassType.TestNoSemicolon; procedure TTestClassType.TestNoSemicolon;
begin begin
StartClass; StartClass;
fDecl.Add('X : Integer;');
fDecl.Add('Y : String'); fDecl.Add('Y : String');
ParseClass; ParseClass;
end; end;