Explorar o código

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

git-svn-id: trunk@39056 -
nickysn %!s(int64=7) %!d(string=hai) anos
pai
achega
96b53c168c
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/inc/lnfodwrf.pp

+ 1 - 1
rtl/inc/lnfodwrf.pp

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