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

IDE: fixed unitialized var

Browse Source 
git-svn-id: trunk@47657 -
This commit is contained in:
mattias 2015-02-09 16:53:46 +00:00
parent d868b219ae
commit 3ff9f8fb4f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/etfpcmsgparser.pas
View File

@ -1847,9 +1847,10 @@ begin
ExtractFilePath(Filename),UsedByUnit,true);
end;
if NewFilename='' then begin
if Tool.Data is TIDEExternalToolData then
TheOwner:=ExternalToolList.GetIDEObject(TIDEExternalToolData(Tool.Data))
else if Tool.Data=nil then begin
TheOwner:=nil;
if Tool.Data is TIDEExternalToolData then begin
TheOwner:=ExternalToolList.GetIDEObject(TIDEExternalToolData(Tool.Data));
end else if Tool.Data=nil then begin
debugln(['TIDEFPCParser.ImproveMsgUnitNotFound Tool.Data=nil, ProcDir=',Tool.Process.CurrentDirectory]);
end;
NewFilename:=LazarusIDE.FindUnitFile(UsedByUnit,TheOwner);