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

* Small corrections to previous patch from Denis Kozlov (bug ID 13518)

Browse Source 
git-svn-id: trunk@31026 -
This commit is contained in:
michael 2015-06-12 07:17:37 +00:00
parent a3e542eba4
commit 1ec8a3bde9
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/lineinfo.pp
View File

@ -22,8 +22,13 @@ interface
{$S-}
{$Q-}
{$IF FPC_VERSION<3}
Type
CodePointer = Pointer;
{$ENDIF}
function GetLineInfo(addr:ptruint;var func,source:string;var line:longint) : boolean;
function StabBackTraceStr(addr:{$IF FPC_VERSION>=3}CodePointer{$ELSE}Pointer{$ENDIF}):string;
function StabBackTraceStr(addr:CodePointer):string;
procedure CloseStabs;
implementation
@ -94,7 +99,7 @@ begin
writeln(stderr,filename,' Baseaddr: ',hexstr(ptruint(baseaddr),sizeof(baseaddr)*2));
{$endif DEBUG_LINEINFO}
// Check if GetModuleByAddr has work
// Check if GetModuleByAddr has worked
if filename = '' then
exit;
@ -289,7 +294,7 @@ begin
end;
function StabBackTraceStr(addr:{$IF FPC_VERSION>=3}CodePointer{$ELSE}Pointer{$ENDIF}):string;
function StabBackTraceStr(addr:CodePointer):string;
var
func,
source : string;