Parcourir la source

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

git-svn-id: trunk@39069 -
nickysn il y a 7 ans
Parent
commit
a598e17c8a
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  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;