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

* fix loading of i8086-msdos ELF when the MZ binary in front of it exceeds 64kb

Browse Source 
git-svn-id: trunk@39069 -
This commit is contained in:
nickysn 2018-05-20 20:18:00 +00:00
parent 2955ee2dc4
commit a598e17c8a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/exeinfo.pp
View File

@ -973,7 +973,7 @@ begin
Exit;
if DosHeader.E_Magic = $5A4D then
begin
E.ImgOffset := DosHeader.e_cp * ParagraphSize;
E.ImgOffset := LongWord(DosHeader.e_cp) * ParagraphSize;
if DosHeader.e_cblp > 0 then
E.ImgOffset := E.ImgOffset + DosHeader.e_cblp - ParagraphSize;
end;