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

* the code for displaying a symbol address in the linker map file moved to a

Browse Source 
method in TObjSymbol

git-svn-id: trunk@31411 -
This commit is contained in:
nickysn 2015-08-24 22:12:00 +00:00
parent 8e00ca1ac1
commit ba1c494cd6
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ogbase.pas
View File

@ -192,6 +192,8 @@ interface
function address:aword; function address:aword;
procedure SetAddress(apass:byte;aobjsec:TObjSection;abind:TAsmsymbind;atyp:Tasmsymtype); procedure SetAddress(apass:byte;aobjsec:TObjSection;abind:TAsmsymbind;atyp:Tasmsymtype);
function ObjData: TObjData; function ObjData: TObjData;
{ string representation for the linker map file }
function AddressStr(AImageBase: qword): string;
end; end;
{ Stabs is common for all targets } { Stabs is common for all targets }
@ -749,6 +751,12 @@ implementation
result:=(OwnerList as TObjSymbolList).Owner; result:=(OwnerList as TObjSymbolList).Owner;
end; end;
function TObjSymbol.AddressStr(AImageBase: qword): string;
begin
Result:='0x'+HexStr(address+Aimagebase,sizeof(pint)*2);
end;
{**************************************************************************** {****************************************************************************
TObjRelocation TObjRelocation
****************************************************************************} ****************************************************************************}

2
compiler/ogmap.pas
View File

@ -190,7 +190,7 @@ implementation
procedure TExeMap.AddMemoryMapSymbol(p:TObjSymbol); procedure TExeMap.AddMemoryMapSymbol(p:TObjSymbol);
begin begin
{ 0x00001e30 setup_screens } { 0x00001e30 setup_screens }
Add(Space(16)+PadSpace('0x'+HexStr(p.address+Fimagebase,sizeof(pint)*2),25)+' '+p.name); Add(Space(16)+PadSpace(p.AddressStr(FImageBase),25)+' '+p.name);
end; end;
end. end.