Переглянути джерело

* use the provided constant instead of hardcoded value

git-svn-id: trunk@10758 -
Tomas Hajny 17 роки тому
батько
коміт
203e19782f
1 змінених файлів з 1 додано та 1 видалено
  1. 1 1
      rtl/inc/exeinfo.pp

+ 1 - 1
rtl/inc/exeinfo.pp

@@ -366,7 +366,7 @@ begin
   begin
    E.ImgOffset := DosHeader.e_cp * ParagraphSize;
    if DosHeader.e_cblp > 0 then
-    E.ImgOffset := E.ImgOffset + DosHeader.e_cblp - 512;
+    E.ImgOffset := E.ImgOffset + DosHeader.e_cblp - ParagraphSize;
   end;
   if e.size < E.ImgOffset + sizeof(coffheader) then
    exit;