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

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

Browse Source
This commit is contained in:
Martin 2022-06-04 19:33:45 +02:00
parent 9fb19f8b7d
commit 99495ba51a
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

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

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

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