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

Debugger, Callstack: Do not display 0x0000 for frames not yet evaluated (leave blank instead).

Browse Source
This commit is contained in:
Martin 2021-11-29 12:21:55 +01:00
parent 28984a7cdf
commit 5ec6966dc7
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/callstackdlg.pp
View File

@ -356,11 +356,17 @@ begin
begin
Item := lvCallStack.Items[n];
Entry := CStack.Entries[First + n];
if Entry = nil
if (Entry = nil) or (Entry.Validity <> ddsValid)
then begin
Item.Caption := '';
Item.ImageIndex := imgNoSourceLine;
Item.SubItems[0] := '????';
if Entry = nil then begin
Item.ImageIndex := imgNoSourceLine;
Item.SubItems[0] := '????';
end
else begin
Item.ImageIndex := -1;
Item.SubItems[0] := '';
end;
Item.SubItems[1] := '';
Item.SubItems[2] := '';
Item.SubItems[3] := '';