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

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

Browse Source
This commit is contained in:
Martin 2022-09-06 16:59:35 +02:00
parent 88ad421ae1
commit f63ba9cd3b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/packages/idedebugger/debugger.pp
View File

@ -7575,9 +7575,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;