paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-08 23:32:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed endless loop

Browse Source 
git-svn-id: trunk@15982 -
This commit is contained in:
mattias 2008-08-07 14:13:29 +00:00
parent 8c97c26419
commit 8c20e8c9b9
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

@ -1048,10 +1048,10 @@ begin
// create node for procedure head // create node for procedure head
CreateChildNode; CreateChildNode;
CurNode.Desc:=ctnProcedureHead; CurNode.Desc:=ctnProcedureHead;
CurNode.SubDesc:=ctnsNeedJITParsing;
ReadNextAtom; ReadNextAtom;
if (CurPos.Flag<>cafPoint) then begin if (CurPos.Flag<>cafPoint) then begin
// read rest // read rest
CurNode.SubDesc:=ctnsNeedJITParsing;
ParseAttr:=[pphIsMethod]; ParseAttr:=[pphIsMethod];
if IsFunction then Include(ParseAttr,pphIsFunction); if IsFunction then Include(ParseAttr,pphIsFunction);
ReadTilProcedureHeadEnd(ParseAttr,HasForwardModifier); ReadTilProcedureHeadEnd(ParseAttr,HasForwardModifier);