moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 16:55:01 -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);
begin
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);
FunctionList.EndUpdate;
if Filtering then
@ -96,6 +91,7 @@ begin
FilterTreeVis(True);
Find(false,false);
end;
FillThread := nil;
end;
procedure TFunctionListFrame.FrameEndDock(Sender, Target: TObject; X, Y: Integer
@ -239,6 +235,7 @@ begin
MS := TMemoryStream.Create;
MS.Write(Script[1],length(script));
OnTerminate:=@FillThreadTerminate;
FreeOnTerminate := True;
FillThread.ScriptNode := self.ScriptNode;
FillThread.IncludesNode := self.IncludesNode;
end;