paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:49:44 +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, Classes, SysUtils, LazFileUtils, LazLogger, DbgIntfDebuggerBase,
TestDbgConfig, TTestDbgExecuteables, TestDbgTestSuites, TestDbgControl, TestDbgConfig, TTestDbgExecuteables, TestDbgTestSuites, TestDbgControl,
FpDebugDebugger, LazDebuggerIntf, LazDebuggerIntfBaseTypes, Dialogs, Forms, FpDebugDebugger, LazDebuggerIntf, LazDebuggerIntfBaseTypes, Dialogs, Forms,
FpDbgDwarfFreePascal; FpDbgDwarfFreePascal, FpDbgClasses;
type type
@ -88,7 +88,8 @@ end;
procedure THookedFpDebugDebugger.LockRelease; procedure THookedFpDebugDebugger.LockRelease;
begin begin
inc(LockRelCount); if (FDbgController <> nil) and not (FDbgController.Event in [deLoadLibrary, deUnloadLibrary]) then
inc(LockRelCount);
inherited LockRelease; inherited LockRelease;
end; end;