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

codetools: safety check

Browse Source 
git-svn-id: trunk@32459 -
This commit is contained in:
mattias 2011-09-22 20:57:28 +00:00
parent 09c6d11771
commit e59acfda40
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/finddeclarationtool.pas
View File

@ -1563,7 +1563,7 @@ begin
NewTool:=Params.NewCodeTool; NewTool:=Params.NewCodeTool;
NewPos:=Params.NewPos; NewPos:=Params.NewPos;
NewTopLine:=Params.NewTopLine; NewTopLine:=Params.NewTopLine;
if NewPos.Code=nil then begin if (NewPos.Code=nil) or (NewNode=nil) then begin
if Params.IdentifierTool.IsPCharInSrc(Params.Identifier) then if Params.IdentifierTool.IsPCharInSrc(Params.Identifier) then
Params.IdentifierTool.MoveCursorToCleanPos(Params.Identifier) Params.IdentifierTool.MoveCursorToCleanPos(Params.Identifier)
else else