paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-23 18:41:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed parsing class operator method

Browse Source 
git-svn-id: trunk@57648 -
This commit is contained in:
mattias 2018-04-12 19:42:13 +00:00
parent a5293996d9
commit a040f6c847
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -1347,7 +1347,7 @@ begin
Include(ParseAttr,pphIsOperator); Include(ParseAttr,pphIsOperator);
// read name // read name
ReadNextAtom; ReadNextAtom;
if CurPos.Flag<>cafWord then if (CurPos.Flag<>cafWord) and not (pphIsOperator in ParseAttr) then
AtomIsIdentifierE; AtomIsIdentifierE;
// create node for procedure head // create node for procedure head
CreateChildNode; CreateChildNode;