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

codetools: fixed FindDeclaration if cursor beyond scanned code, bug #17639

Browse Source 
git-svn-id: trunk@28325 -
This commit is contained in:
mattias 2010-11-18 18:49:20 +00:00
parent 3f5a6e0ed2
commit 503cc8dcad
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/finddeclarationtool.pas
View File

@ -1489,7 +1489,10 @@ begin
GetIdentStartEndAtPosition(Src,CleanCursorPos, GetIdentStartEndAtPosition(Src,CleanCursorPos,
CurPos.StartPos,CurPos.EndPos); CurPos.StartPos,CurPos.EndPos);
CursorAtIdentifier:=CurPos.StartPos<CurPos.EndPos; CursorAtIdentifier:=CurPos.StartPos<CurPos.EndPos;
IdentifierStart:=@Src[CurPos.StartPos]; if CursorAtIdentifier then
IdentifierStart:=@Src[CurPos.StartPos]
else
IdentifierStart:=PChar(Src);
end; end;
if CursorAtIdentifier then begin if CursorAtIdentifier then begin
// find declaration of identifier // find declaration of identifier