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

Debugger: Stack.CountLimited, Ensure result is always set. Mentioned in issue #39886

Browse Source 
(cherry picked from commit f63ba9cd3b)
This commit is contained in:
Martin 2022-09-06 16:59:35 +02:00
parent d8c23df73b
commit 289e8b9397
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/debugger.pp
View File

@ -6383,9 +6383,9 @@ end;
function TIdeCallStack.CountLimited(ALimit: Integer): Integer; function TIdeCallStack.CountLimited(ALimit: Integer): Integer;
begin begin
case HasAtLeastCount(ALimit) of case HasAtLeastCount(ALimit) of
nbUnknown: Result := 0;
nbTrue: Result := ALimit; nbTrue: Result := ALimit;
nbFalse: Result := Count; nbFalse: Result := Count;
else Result := 0;
end; end;
end; end;