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

IDE: fixed uninitialized var, issue #37179

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/exttools.pas
View File

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