paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:30:41 +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;
procedure SetAddress(apass:byte;aobjsec:TObjSection;abind:TAsmsymbind;atyp:Tasmsymtype);
function ObjData: TObjData;
{ string representation for the linker map file }
function AddressStr(AImageBase: qword): string;
end;
{ Stabs is common for all targets }
@ -749,6 +751,12 @@ implementation
result:=(OwnerList as TObjSymbolList).Owner;
end;
function TObjSymbol.AddressStr(AImageBase: qword): string;
begin
Result:='0x'+HexStr(address+Aimagebase,sizeof(pint)*2);
end;
{****************************************************************************
TObjRelocation
****************************************************************************}

2
compiler/ogmap.pas
View File

@ -190,7 +190,7 @@ implementation
procedure TExeMap.AddMemoryMapSymbol(p:TObjSymbol);
begin
{ 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.