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

FpDebug: test, fix test / ignore load-lib events in count (test for debug loop re-started unexpectedly)

Browse Source
This commit is contained in:
Martin 2023-05-26 15:26:39 +02:00
parent 8ac62b7b82
commit acfb46b466
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggers/lazdebuggerfp/test/testbase.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, LazFileUtils, LazLogger, DbgIntfDebuggerBase,
TestDbgConfig, TTestDbgExecuteables, TestDbgTestSuites, TestDbgControl,
FpDebugDebugger, LazDebuggerIntf, LazDebuggerIntfBaseTypes, Dialogs, Forms,
FpDbgDwarfFreePascal;
FpDbgDwarfFreePascal, FpDbgClasses;
type
@ -88,7 +88,8 @@ end;
procedure THookedFpDebugDebugger.LockRelease;
begin
inc(LockRelCount);
if (FDbgController <> nil) and not (FDbgController.Event in [deLoadLibrary, deUnloadLibrary]) then
inc(LockRelCount);
inherited LockRelease;
end;