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

* use hexstr(baseaddr) to print out the pointer value, regardless of its x86 type (near/far, etc.)

Browse Source 
git-svn-id: trunk@39056 -
This commit is contained in:
nickysn 2018-05-20 14:39:28 +00:00
parent abe61d0daa
commit 96b53c168c
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

@ -269,7 +269,7 @@ begin
// Get filename by address using GetModuleByAddr // Get filename by address using GetModuleByAddr
GetModuleByAddr(tofar(addr),baseaddr,filename); GetModuleByAddr(tofar(addr),baseaddr,filename);
{$ifdef DEBUG_LINEINFO} {$ifdef DEBUG_LINEINFO}
writeln(stderr,filename,' Baseaddr: ',hexstr(ptruint(baseaddr),sizeof(baseaddr)*2)); writeln(stderr,filename,' Baseaddr: ',hexstr(baseaddr));
{$endif DEBUG_LINEINFO} {$endif DEBUG_LINEINFO}
// Check if GetModuleByAddr has worked // Check if GetModuleByAddr has worked