paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the provided constant instead of hardcoded value

Browse Source 
git-svn-id: trunk@10758 -
This commit is contained in:
Tomas Hajny 2008-04-22 14:42:48 +00:00
parent 88597d23c5
commit 203e19782f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/exeinfo.pp
View File

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