paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 09:29:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: parsing new class type section without following visibility keyword, bug #15335

Browse Source 
git-svn-id: trunk@23127 -
This commit is contained in:
mattias 2009-12-13 19:46:04 +00:00
parent 8b2a207220
commit 4c254a359a
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/codetools/pascalparsertool.pas
View File

@ -1076,8 +1076,19 @@ begin
CurNode.Desc:=ctnClassTypeProtected CurNode.Desc:=ctnClassTypeProtected
else if UpAtomIs('PUBLISHED') then else if UpAtomIs('PUBLISHED') then
CurNode.Desc:=ctnClassTypePublished CurNode.Desc:=ctnClassTypePublished
else else begin
RaiseStringExpectedButAtomFound('public'); if CurNode.PriorBrother<>nil then begin
case CurNode.PriorBrother.Desc of
ctnClassPrivate: CurNode.Desc:=ctnClassTypePrivate;
ctnClassProtected: CurNode.Desc:=ctnClassTypeProtected;
ctnClassPublic: CurNode.Desc:=ctnClassTypePublic;
ctnClassPublished: CurNode.Desc:=ctnClassTypePublished;
else
RaiseStringExpectedButAtomFound('public');
end;
end;
UndoReadNextAtom;
end;
Result:=true; Result:=true;
end; end;