paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 05:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use hexstr(addr) in the dwarf backtrace function, so it displays always a good

Browse Source 
value, according to the x86 pointer type

git-svn-id: trunk@39057 -
This commit is contained in:
nickysn 2018-05-20 14:42:17 +00:00
parent 96b53c168c
commit 1f76f52996
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/lnfodwrf.pp
View File

@ -1328,7 +1328,7 @@ begin
BackTraceStrFunc := @SysBackTraceStr; BackTraceStrFunc := @SysBackTraceStr;
Success:=GetLineInfo(codeptruint(addr), func, source, line); Success:=GetLineInfo(codeptruint(addr), func, source, line);
{ create string } { create string }
DwarfBackTraceStr :=' $' + HexStr(ptruint(addr), sizeof(ptruint) * 2); DwarfBackTraceStr :=' $' + HexStr(addr);
if Success then if Success then
begin begin
if func<>'' then if func<>'' then