paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 23:18: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
Opts: TDBGEvaluateFlags;
begin
if DebugBoss.State in [dsRun, dsStop, dsIdle] then begin
// No request can be running
FUpdateLock := False;
FTestUpdateLock := False;
end;
if FUpdateLock then begin
FUpdateNeeded := True;
exit;
end;
if FExpression = '' then begin
Clear;
StatusBar1.SimpleText := '';
exit;
end;
FUpdateLock := True;
FUpdateNeeded := False;
try
FreeAndNil(FDBGInfo);
if FExpression = ''
then begin
Clear;
StatusBar1.SimpleText := '';
exit;
end;
InputHistories.HistoryLists.Add(ClassName, FExpression,rltCaseSensitive);
if EdInspect.Items.IndexOf(FExpression) = -1