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

IDE, Callstack: Do not request updates (on brkpoint change), if there are no items to update.

Browse Source 
git-svn-id: trunk@62140 -
This commit is contained in:
martin 2019-10-28 17:07:08 +00:00
parent e5692c88e3
commit d9115c54aa
1 changed files with 3 additions and 1 deletions

4
debugger/callstackdlg.pp
View File

@ -39,7 +39,7 @@ uses
SysUtils, Classes, Controls, Forms, LCLProc, LazLoggerBase,
IDEWindowIntf, DebuggerStrConst,
ComCtrls, Debugger, DebuggerDlg, Menus, ClipBrd, ExtCtrls, StdCtrls,
ActnList, IDEImagesIntf, IDECommands, EnvironmentOpts;
ActnList, IDEImagesIntf, IDECommands, DbgIntfDebuggerBase, EnvironmentOpts;
type
@ -699,6 +699,8 @@ var
Entry: TIdeCallStackEntry;
Stack: TIdeCallStack;
begin
if {(DebugBoss.State <> dsPause) or} (lvCallStack.Items.Count = 0) then
exit;
DebugLn(DBG_DATA_MONITORS, ['DebugDataWindow: TCallStackDlg.BreakPointChanged ', DbgSName(ASender), ' Upd:', IsUpdating]);
Stack := GetSelectedCallstack;
if (BreakPoints = nil) or (Stack = nil) then