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

codetools: parsing objcclass end external name string

Browse Source 
git-svn-id: trunk@21690 -
This commit is contained in:
mattias 2009-09-13 21:44:28 +00:00
parent ddad9c8091
commit 6a402092e2
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/codetools/pascalparsertool.pas
View File

@ -3454,16 +3454,27 @@ begin
if (CurPos.StartPos>SrcLen) then if (CurPos.StartPos>SrcLen) then
SaveRaiseException(ctsEndForClassNotFound); SaveRaiseException(ctsEndForClassNotFound);
end; end;
if ChildCreated then begin
// close class
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;
end;
if CurPos.Flag=cafEND then begin if CurPos.Flag=cafEND then begin
ReadNextAtom; ReadNextAtom;
if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED') if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED')
then then
ReadNextAtom; ReadNextAtom;
if CurPos.Flag=cafSemicolon then
ReadNextAtom;
if UpAtomIs('EXTERNAL') then begin
ReadNextAtom;
if UpAtomIs('NAME') then begin
ReadNextAtom;
ReadConstant(true,false,[]);
end;
end;
if CurPos.Flag<>cafSemicolon then
UndoReadNextAtom;
end;
if ChildCreated then begin
// close class
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;
end; end;
Result:=true; Result:=true;
end; end;