Преглед изворни кода

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