Explorar o código

* use hexstr(addr) in the dwarf backtrace function, so it displays always a good
value, according to the x86 pointer type

git-svn-id: trunk@39057 -

nickysn %!s(int64=7) %!d(string=hai) anos
pai
achega
1f76f52996
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/inc/lnfodwrf.pp

+ 1 - 1
rtl/inc/lnfodwrf.pp

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