paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 23:12:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

DBG: fixed dbg-inspector updates

Browse Source 
git-svn-id: trunk@32300 -
This commit is contained in:
martin 2011-09-12 11:37:53 +00:00
parent 09252d7682
commit 932ea7ee45
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/debugmanager.pas
View File

@ -966,8 +966,11 @@ begin
end;
// update inspect
if (FDebugger.State in [dsPause]) and (OldState = dsRun)
and (FDialogs[ddtInspect] <> nil)
// TODO: Move here from DebuggerCurrentLine / Only currently State change locks execution of gdb
//if ( ((FDebugger.State in [dsPause]) and (OldState = dsRun)) or
// (OldState in [dsPause]) ) and
if (OldState in [dsPause]) and
(FDialogs[ddtInspect] <> nil)
then TIDEInspectDlg(FDialogs[ddtInspect]).UpdateData;
case FDebugger.State of
@ -1071,6 +1074,10 @@ begin
if SrcLine < 1 then Exit;
end;
// TODO: do in DebuggerChangeState / Only currently State change locks execution of gdb
if (FDialogs[ddtInspect] <> nil)
then TIDEInspectDlg(FDialogs[ddtInspect]).UpdateData;
if (SrcFullName = '') or not GetFullFilename(SrcFullName, False) then
begin
SrcFullName := SrcFile;