paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 17:33:18 +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

20
components/codetools/finddeclarationtool.pas
View File

@ -47,12 +47,12 @@ interface
// activate for debug:
{$DEFINE CTDEBUG}
{ $DEFINE CTDEBUG}
{ $DEFINE ShowSearchPaths}
{ $DEFINE ShowTriedFiles}
{ $DEFINE ShowTriedContexts}
{ $DEFINE ShowTriedIdentifiers}
{$DEFINE ShowExprEval}
{ $DEFINE ShowExprEval}
{ $DEFINE ShowFoundIdentifier}
{ $DEFINE ShowInterfaceCache}
{ $DEFINE ShowNodeCache}
@ -3033,13 +3033,17 @@ var
ReadTilBracketClose(true);
ReadNextAtom;
end;
BehindFuncAtomType:=GetCurrentAtomType;
if (BehindFuncAtomType in [vatPoint,vatUP,
vatEdgedBracketOpen,vatRoundBracketOpen])
then
IsIdentEndOfVar:=iieovNo
else
if CurPos.StartPos<EndPos then begin
BehindFuncAtomType:=GetCurrentAtomType;
if (BehindFuncAtomType in [vatPoint,vatUP,
vatEdgedBracketOpen,vatRoundBracketOpen])
then
IsIdentEndOfVar:=iieovNo
else
IsIdentEndOfVar:=iieovYes;
end else begin
IsIdentEndOfVar:=iieovYes;
end;
end;
Result:=(IsIdentEndOfVar=iieovYes);
end;