paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 08:58:19 +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: // activate for debug:
{$DEFINE CTDEBUG} { $DEFINE CTDEBUG}
{ $DEFINE ShowSearchPaths} { $DEFINE ShowSearchPaths}
{ $DEFINE ShowTriedFiles} { $DEFINE ShowTriedFiles}
{ $DEFINE ShowTriedContexts} { $DEFINE ShowTriedContexts}
{ $DEFINE ShowTriedIdentifiers} { $DEFINE ShowTriedIdentifiers}
{$DEFINE ShowExprEval} { $DEFINE ShowExprEval}
{ $DEFINE ShowFoundIdentifier} { $DEFINE ShowFoundIdentifier}
{ $DEFINE ShowInterfaceCache} { $DEFINE ShowInterfaceCache}
{ $DEFINE ShowNodeCache} { $DEFINE ShowNodeCache}
@ -3033,13 +3033,17 @@ var
ReadTilBracketClose(true); ReadTilBracketClose(true);
ReadNextAtom; ReadNextAtom;
end; end;
BehindFuncAtomType:=GetCurrentAtomType; if CurPos.StartPos<EndPos then begin
if (BehindFuncAtomType in [vatPoint,vatUP, BehindFuncAtomType:=GetCurrentAtomType;
vatEdgedBracketOpen,vatRoundBracketOpen]) if (BehindFuncAtomType in [vatPoint,vatUP,
then vatEdgedBracketOpen,vatRoundBracketOpen])
IsIdentEndOfVar:=iieovNo then
else IsIdentEndOfVar:=iieovNo
else
IsIdentEndOfVar:=iieovYes;
end else begin
IsIdentEndOfVar:=iieovYes; IsIdentEndOfVar:=iieovYes;
end;
end; end;
Result:=(IsIdentEndOfVar=iieovYes); Result:=(IsIdentEndOfVar=iieovYes);
end; end;