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

MG: fixed find declaration of function ident with direct child access

Browse Source 
git-svn-id: trunk@1730 -
This commit is contained in:
lazarus 2002-06-05 17:33:11 +00:00
parent 7d98f31c27
commit 008fb80307
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/finddeclarationtool.pas
View File

@ -3033,6 +3033,7 @@ var
ReadTilBracketClose(true); ReadTilBracketClose(true);
ReadNextAtom; ReadNextAtom;
end; end;
if CurPos.StartPos<EndPos then begin
BehindFuncAtomType:=GetCurrentAtomType; BehindFuncAtomType:=GetCurrentAtomType;
if (BehindFuncAtomType in [vatPoint,vatUP, if (BehindFuncAtomType in [vatPoint,vatUP,
vatEdgedBracketOpen,vatRoundBracketOpen]) vatEdgedBracketOpen,vatRoundBracketOpen])
@ -3040,6 +3041,9 @@ var
IsIdentEndOfVar:=iieovNo IsIdentEndOfVar:=iieovNo
else else
IsIdentEndOfVar:=iieovYes; IsIdentEndOfVar:=iieovYes;
end else begin
IsIdentEndOfVar:=iieovYes;
end;
end; end;
Result:=(IsIdentEndOfVar=iieovYes); Result:=(IsIdentEndOfVar=iieovYes);
end; end;