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

lazdebugger: remove queued async calls

Browse Source 
git-svn-id: trunk@46950 -
This commit is contained in:
mattias 2014-11-22 00:12:06 +00:00
parent 62c23192e8
commit f9700880fa
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -70,7 +70,7 @@ type
TFpDebugDebugger = class(TDebuggerIntf)
private
FWatchEvalList: TList; // Schedule
FWatchEvalList: TFPList; // Schedule
FWatchAsyncQueued: Boolean;
FPrettyPrinter: TFpPascalPrettyPrinter;
FDbgController: TDbgController;
@ -341,6 +341,7 @@ end;
destructor TFpWaitForConsoleOutputThread.Destroy;
begin
Application.RemoveAsyncCalls(Self);
RTLeventdestroy(FHasConsoleOutputQueued);
inherited Destroy;
end;
@ -970,6 +971,7 @@ end;
destructor TFpDebugThread.Destroy;
begin
Application.RemoveAsyncCalls(Self);
RTLeventdestroy(FStartDebugLoopEvent);
RTLeventdestroy(FDebugLoopStoppedEvent);
inherited Destroy;
@ -1701,7 +1703,7 @@ end;
constructor TFpDebugDebugger.Create(const AExternalDebugger: String);
begin
inherited Create(AExternalDebugger);
FWatchEvalList := TList.Create;
FWatchEvalList := TFPList.Create;
FPrettyPrinter := TFpPascalPrettyPrinter.Create(sizeof(pointer));
InitCriticalSection(FLogCritSection);
FMemReader := TFpDbgMemReader.Create(self);
@ -1718,13 +1720,14 @@ end;
destructor TFpDebugDebugger.Destroy;
begin
Application.RemoveAsyncCalls(Self);
if assigned(FFpDebugThread) then
FreeDebugThread;
FDbgController.Free;
FPrettyPrinter.Free;
FWatchEvalList.Free;
FMemManager.Free;
FMemReader.Free;
FreeAndNil(FDbgController);
FreeAndNil(FPrettyPrinter);
FreeAndNil(FWatchEvalList);
FreeAndNil(FMemManager);
FreeAndNil(FMemReader);
DoneCriticalsection(FLogCritSection);
inherited Destroy;
end;