paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 16:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed uninitialized var, issue

Browse Source 
git-svn-id: trunk@63311 -
This commit is contained in:
mattias 2020-06-06 08:02:19 +00:00
parent ac5700b816
commit 0062c511b8
1 changed files with 13 additions and 5 deletions

18
ide/exttools.pas
View File

@ -465,6 +465,7 @@ var
CallAutoFree: Boolean;
begin
// Note: in lazbuild ProcessStopped sets FThread:=nil, so SetThread is not called.
CallAutoFree:=false;
EnterCriticalSection;
try
if FThread=AValue then Exit;
@ -1372,13 +1373,20 @@ end;
{ TExternalToolThread }
procedure TExternalToolThread.SetTool(AValue: TExternalTool);
var
OldTool: TExternalTool;
begin
if FTool=AValue then Exit;
if FTool<>nil then
FTool.Thread:=nil;
FTool:=AValue;
if FTool<>nil then
FTool.Thread:=Self;
OldTool:=FTool;
FTool:=nil;
if OldTool<>nil then
OldTool.Thread:=nil;
if AValue<>nil then
begin
FTool:=AValue;
if FTool<>nil then
FTool.Thread:=Self;
end;
end;
procedure TExternalToolThread.Execute;