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

DBG: Fixed dbg-event-log stack output

Browse Source 
git-svn-id: trunk@32249 -
This commit is contained in:
martin 2011-09-10 06:57:18 +00:00
parent b2c386dfa6
commit 39c65700a2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/debugger.pp
View File

@ -6361,10 +6361,11 @@ begin
begin
Entry := CallStack.Entries[I];
StackString := Spacing + Entry.Source;
if StackString = '' then // we do not have a source file => just show an adress
StackString := ':' + IntToHex(Entry.Address, 8);
if Entry.Source = '' then // we do not have a source file => just show an adress
StackString := Spacing + ':' + IntToHex(Entry.Address, 8);
StackString := StackString + ' ' + Entry.GetFunctionWithArg;
StackString := StackString + ' line ' + IntToStr(Entry.Line);
if line > 0 then
StackString := StackString + ' line ' + IntToStr(Entry.Line);
Debugger.DoDbgEvent(ecBreakpoint, etBreakpointStackDump, StackString);
end;