paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 17:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

morphos/lineinfo: updated the address adjustment comment added in r40857, no functional change

Browse Source 
git-svn-id: trunk@40860 -
This commit is contained in:
Károly Balogh 2019-01-14 11:47:54 +00:00
parent 893a5e8f71
commit fd1a09a254
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/morphos/lineinfo.pp
View File

@ -434,11 +434,12 @@ begin
Store:=BackTraceStrFunc;
BackTraceStrFunc:=@SysBackTraceStr;
{ for valid stacktraces at least you have to substract sizeof(pointer)
from the trace address otherwise the lineinfo might be off-by-one,
because of course the backtrace addresses don't point to the jump
instructions, but the following address, which might belong to a
different source line entirely (KB) }
{ on most architectures, (but not everywhere, Sparc is a notable exception)
for valid stacktraces you have to substract sizeof(pointer), or similar
instruction length from the trace address otherwise the lineinfo might
be off-by-one, because of course the backtrace addresses don't point to
the jump instructions, but the following address, which might belong to
a different source line entirely (KB) }
Success:=GetLineInfo(ptruint(addr-sizeof(pointer)),func,source,line);
{ create string }