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

codetools: fixed endless loop ExtractProcHead

Browse Source 
git-svn-id: trunk@26967 -
This commit is contained in:
mattias 2010-08-01 22:10:44 +00:00
parent 121d88afc3
commit fd6b0bde63
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/pascalreadertool.pas
View File

@ -488,7 +488,7 @@ begin
ExtractNextAtom(not (phpWithoutSemicolon in Attr),Attr); ExtractNextAtom(not (phpWithoutSemicolon in Attr),Attr);
// read specifiers // read specifiers
if [phpWithCallingSpecs,phpWithProcModifiers]*Attr<>[] then begin if [phpWithCallingSpecs,phpWithProcModifiers]*Attr<>[] then begin
while (CurPos.StartPos<=ProcNode.FirstChild.EndPos) do begin while (CurPos.StartPos<ProcNode.FirstChild.EndPos) do begin
if CurPos.Flag=cafSemicolon then begin if CurPos.Flag=cafSemicolon then begin
ExtractNextAtom(phpWithProcModifiers in Attr,Attr); ExtractNextAtom(phpWithProcModifiers in Attr,Attr);
end else begin end else begin