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

FpDebugDebugger: fix retrieving stack without limit (fix copy stack to clipboard)

Browse Source 
(cherry picked from commit 99495ba51a)
This commit is contained in:
Martin 2022-06-04 19:33:45 +02:00
parent b7cab21d44
commit 286dadaed9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -778,7 +778,7 @@ begin
FCallstack := ACallstack;
FCallstack.AddFreeNotification(@DoCallstackFreed_DecRef);
if not ADebugger.FDbgController.CurrentProcess.GetThread(FCallstack.ThreadId, AThread) then
ARequiredMinCount := -1; // error
ARequiredMinCount := -2; // error
inherited Create(ADebugger, ARequiredMinCount, AThread);
end;

2
components/lazdebuggers/lazdebuggerfp/fpdebugdebuggerworkthreads.pas
View File

@ -562,7 +562,7 @@ procedure TFpThreadWorkerPrepareCallStackEntryList.DoExecute;
var
t: TDbgThread;
begin
if FRequiredMinCount < 0 then
if FRequiredMinCount < -1 then
exit;
if FThread = nil then begin
for t in FDebugger.FDbgController.CurrentProcess.ThreadMap do begin