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

* don't crash in TOmfObjSection.MemPosStr if MZExeUnifiedLogicalSegment isn't set

Browse Source 
git-svn-id: trunk@42553 -
This commit is contained in:
nickysn 2019-08-01 16:44:46 +00:00
parent 93a08aaebd
commit 5d01d53a96
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogomf.pas
View File

@ -718,8 +718,11 @@ implementation
function TOmfObjSection.MemPosStr(AImageBase: qword): string;
begin
Result:=HexStr(MZExeUnifiedLogicalSegment.MemBasePos shr 4,4)+':'+
HexStr(MemPos-MZExeUnifiedLogicalSegment.MemBasePos,4);
if Assigned(MZExeUnifiedLogicalSegment) then
Result:=HexStr(MZExeUnifiedLogicalSegment.MemBasePos shr 4,4)+':'+
HexStr(MemPos-MZExeUnifiedLogicalSegment.MemBasePos,4)
else
Result:=inherited;
end;
{****************************************************************************