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

Debugger: Fix crash when viewing extended watch view, while dbg=history is active and selecting a previously not evaluated stack frame.

Browse Source 
git-svn-id: trunk@40945 -
This commit is contained in:
martin 2013-04-29 23:13:07 +00:00
parent b5991e8bb6
commit 2d3c09cd6d
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/watchesdlg.pp
View File

@ -742,11 +742,17 @@ begin
end;
Watch:=TCurrentWatch(lvWatches.Selected.Data);
d := Watch.Values[GetThreadId, GetStackframe];
t := d.TypeInfo;
InspectLabel.Caption := Watch.Expression;
d := Watch.Values[GetThreadId, GetStackframe];
if d = nil then begin
InspectMemo.WordWrap := True;
InspectMemo.Text := '<evaluating>';
exit;
end;
t := d.TypeInfo;
if (t <> nil) and (t.Fields <> nil) and (t.Fields.Count > 0) and
(d.DisplayFormat in [wdfDefault, wdfStructure])
then begin