浏览代码

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

git-svn-id: trunk@39069 -
nickysn 7 年之前
父节点
当前提交
a598e17c8a
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/inc/exeinfo.pp

+ 1 - 1
rtl/inc/exeinfo.pp

@@ -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;