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

Debugger: Fix DebugInspector stopped working after window was open with empty input. Issue #0034452

Browse Source 
git-svn-id: trunk@59350 -
This commit is contained in:
martin 2018-10-25 18:18:25 +00:00
parent 54026bdc80
commit 58bd48455a
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
debugger/inspectdlg.pas
View File

@ -889,21 +889,27 @@ procedure TIDEInspectDlg.UpdateData;
var var
Opts: TDBGEvaluateFlags; Opts: TDBGEvaluateFlags;
begin begin
if DebugBoss.State in [dsRun, dsStop, dsIdle] then begin
// No request can be running
FUpdateLock := False;
FTestUpdateLock := False;
end;
if FUpdateLock then begin if FUpdateLock then begin
FUpdateNeeded := True; FUpdateNeeded := True;
exit; exit;
end; end;
if FExpression = '' then begin
Clear;
StatusBar1.SimpleText := '';
exit;
end;
FUpdateLock := True; FUpdateLock := True;
FUpdateNeeded := False; FUpdateNeeded := False;
try try
FreeAndNil(FDBGInfo); FreeAndNil(FDBGInfo);
if FExpression = ''
then begin
Clear;
StatusBar1.SimpleText := '';
exit;
end;
InputHistories.HistoryLists.Add(ClassName, FExpression,rltCaseSensitive); InputHistories.HistoryLists.Add(ClassName, FExpression,rltCaseSensitive);
if EdInspect.Items.IndexOf(FExpression) = -1 if EdInspect.Items.IndexOf(FExpression) = -1