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

Debugger: Callstack-Dialog: Fixed, don't call CountLimited with more "+1" than needed.

Browse Source
This commit is contained in:
Martin 2022-09-10 16:21:33 +02:00
parent db69b34e2a
commit 9487022e01
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/callstackdlg.pp
View File

@ -299,7 +299,7 @@ begin
FInUpdateView := True; // ignore change triggered by count, if there is a change event, then Count will be updated already FInUpdateView := True; // ignore change triggered by count, if there is a change event, then Count will be updated already
CStack := GetSelectedCallstack; CStack := GetSelectedCallstack;
MaxCnt := FViewStart + FViewLimit + 1; MaxCnt := FViewStart + FViewLimit;
if CStack <> nil then CStack.CountLimited(MaxCnt); // trigger the update-notification, if executed immediately if CStack <> nil then CStack.CountLimited(MaxCnt); // trigger the update-notification, if executed immediately
FInUpdateView := False; FInUpdateView := False;
// TODO: must make CStack ref-counted // TODO: must make CStack ref-counted