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

Debugger (gdb): improve callstack win, with new de-mangled results

Browse Source 
git-svn-id: trunk@47540 -
This commit is contained in:
martin 2015-01-27 00:11:18 +00:00
parent bfa5d4b89b
commit f93996caa6
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/callstackdlg.pp
View File

@ -369,13 +369,18 @@ begin
Item.ImageIndex := GetImageIndex(Entry);
Item.SubItems[0] := IntToStr(Entry.Index);
Source := Entry.Source;
if (Source = '') and (Entry.UnitInfo <> nil) and (Entry.UnitInfo.LocationFullFile <> '') then
Source := Entry.UnitInfo.LocationFullFile;
if Source = '' then // we do not have a source file => just show an adress
Source := ':' + IntToHex(Entry.Address, 8);
Item.SubItems[1] := Source;
if (Entry.Line = 0) and (Entry.UnitInfo <> nil) and (Entry.UnitInfo.SrcLine > 0) then
Item.SubItems[2] := '~'+IntToStr(Entry.UnitInfo.SrcLine)
else
Item.SubItems[2] := IntToStr(Entry.Line); // TODO: if editor is open, map line SrcEdit.DebugToSourceLine
if Entry.Line > 0 then
Item.SubItems[2] := IntToStr(Entry.Line) // TODO: if editor is open, map line SrcEdit.DebugToSourceLine
else
Item.SubItems[2] := '-';
Item.SubItems[3] := GetFunction(Entry);
end;
end;