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

* changed the type of the first parameter ('addr') of lnfodwrf.GetLineInfo to

Browse Source 
CodePtrUInt instead of PtrUInt

git-svn-id: trunk@39053 -
This commit is contained in:
nickysn 2018-05-20 13:41:10 +00:00
parent 2c000d1e74
commit 0ceb1244bf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/lnfodwrf.pp
View File

@ -31,7 +31,7 @@ type
CodePointer = Pointer; CodePointer = Pointer;
{$ENDIF} {$ENDIF}
function GetLineInfo(addr:ptruint;var func,source:string;var line:longint) : boolean; function GetLineInfo(addr:codeptruint;var func,source:string;var line:longint) : boolean;
function DwarfBackTraceStr(addr: CodePointer): string; function DwarfBackTraceStr(addr: CodePointer): string;
procedure CloseDwarf; procedure CloseDwarf;
@ -1218,7 +1218,7 @@ begin
end; end;
function GetLineInfo(addr : ptruint; var func, source : string; var line : longint) : boolean; function GetLineInfo(addr : codeptruint; var func, source : string; var line : longint) : boolean;
var var
current_offset, current_offset,
end_offset, debug_info_offset_from_aranges : QWord; end_offset, debug_info_offset_from_aranges : QWord;
@ -1306,7 +1306,7 @@ begin
Success:=false; Success:=false;
Store := BackTraceStrFunc; Store := BackTraceStrFunc;
BackTraceStrFunc := @SysBackTraceStr; BackTraceStrFunc := @SysBackTraceStr;
Success:=GetLineInfo(ptruint(addr), func, source, line); Success:=GetLineInfo(codeptruint(addr), func, source, line);
{ create string } { create string }
DwarfBackTraceStr :=' $' + HexStr(ptruint(addr), sizeof(ptruint) * 2); DwarfBackTraceStr :=' $' + HexStr(ptruint(addr), sizeof(ptruint) * 2);
if Success then if Success then