moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 02:32:19 -05:00
Code Issues Releases Wiki Activity

Try now

Browse Source
This commit is contained in:
Raymond 2010-04-15 16:58:41 +02:00
parent 9d8f4f39fb
commit ebf4b496d6
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Projects/SAMufasaGUI/framefunctionlist.pas
View File

@ -84,11 +84,6 @@ end;
procedure TFunctionListFrame.FillThreadTerminate(Sender: TObject); procedure TFunctionListFrame.FillThreadTerminate(Sender: TObject);
begin begin
FillThread.Analyzer.Free; FillThread.Analyzer.Free;
{ Don't free the thread when it is already stopped... This causes deadlocks? }
{$IFDEF Linux}
KillThread(FillThread.Handle);
{$ENDIF}
FreeAndNil(FillThread);
ScriptNode.Expand(true); ScriptNode.Expand(true);
FunctionList.EndUpdate; FunctionList.EndUpdate;
if Filtering then if Filtering then
@ -96,6 +91,7 @@ begin
FilterTreeVis(True); FilterTreeVis(True);
Find(false,false); Find(false,false);
end; end;
FillThread := nil;
end; end;
procedure TFunctionListFrame.FrameEndDock(Sender, Target: TObject; X, Y: Integer procedure TFunctionListFrame.FrameEndDock(Sender, Target: TObject; X, Y: Integer
@ -239,6 +235,7 @@ begin
MS := TMemoryStream.Create; MS := TMemoryStream.Create;
MS.Write(Script[1],length(script)); MS.Write(Script[1],length(script));
OnTerminate:=@FillThreadTerminate; OnTerminate:=@FillThreadTerminate;
FreeOnTerminate := True;
FillThread.ScriptNode := self.ScriptNode; FillThread.ScriptNode := self.ScriptNode;
FillThread.IncludesNode := self.IncludesNode; FillThread.IncludesNode := self.IncludesNode;
end; end;