Procházet zdrojové kódy

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

git-svn-id: trunk@39069 -
nickysn před 7 roky
rodič
revize
a598e17c8a
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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;