paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:06:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* show section addresses relative to the segment's MemBasePos in the i8086-msdos

Browse Source 
internal linker map file

git-svn-id: trunk@31380 -
This commit is contained in:
nickysn 2015-08-24 01:31:16 +00:00
parent 368ba47d6e
commit 989afc6ecb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ogomf.pas
View File

@ -494,7 +494,8 @@ implementation
function TOmfObjSection.MemPosStr(AImageBase: qword): string; function TOmfObjSection.MemPosStr(AImageBase: qword): string;
begin begin
Result:=HexStr(MemPos shr 4,4)+':'+HexStr(MemPos and $000f,4); Result:=HexStr(MZExeUnifiedLogicalSegment.MemBasePos shr 4,4)+':'+
HexStr(MemPos-MZExeUnifiedLogicalSegment.MemBasePos,4);
end; end;
{**************************************************************************** {****************************************************************************