paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ adapted TOmfObjSymbol.AddressStr to show correct segment:offset for NewExe files as well

Browse Source 
git-svn-id: trunk@42567 -
This commit is contained in:
nickysn 2019-08-02 22:47:44 +00:00
parent b739d79f9b
commit 2c176be2fd
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogomf.pas
View File

@ -597,6 +597,10 @@ implementation
function TOmfObjSymbol.AddressStr(AImageBase: qword): string; function TOmfObjSymbol.AddressStr(AImageBase: qword): string;
var var
base: qword; base: qword;
begin
if assigned(objsection.ExeSection) and (objsection.ExeSection is TNewExeSection) then
Result:=HexStr(TNewExeSection(objsection.ExeSection).MemBasePos,4)+':'+HexStr(address,4)
else
begin begin
if assigned(TOmfObjSection(objsection).MZExeUnifiedLogicalSegment) then if assigned(TOmfObjSection(objsection).MZExeUnifiedLogicalSegment) then
base:=TOmfObjSection(objsection).MZExeUnifiedLogicalSegment.MemBasePos base:=TOmfObjSection(objsection).MZExeUnifiedLogicalSegment.MemBasePos
@ -604,6 +608,7 @@ implementation
base:=(address shr 4) shl 4; base:=(address shr 4) shl 4;
Result:=HexStr(base shr 4,4)+':'+HexStr(address-base,4); Result:=HexStr(base shr 4,4)+':'+HexStr(address-base,4);
end; end;
end;
{**************************************************************************** {****************************************************************************
TOmfRelocation TOmfRelocation