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

* Revert rounding section data size, it should be done in a more sophisticated way

Browse Source 
git-svn-id: trunk@17950 -
This commit is contained in:
sergei 2011-07-07 11:34:57 +00:00
parent 2d96c34b06
commit 5d5ddbbe3e
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ogcoff.pas
View File

@ -2108,14 +2108,12 @@ const pemagic : array[0..3] of byte = (
sechdr.vsize:=mempos;
{ sechdr.dataSize is size of initilized data. Must be zero for sections that
do not contain one. In Windows, must be rounded up to FileAlignment
(so it can be greater than VirtualSize) }
do not contain one.
TODO: In Windows it must be rounded up to FileAlignment
(so it can be greater than VirtualSize) }
if (oso_data in SecOptions) then
begin
if win32 then
sechdr.dataSize:=Align(Size,SectionDataAlign)
else
sechdr.dataSize:=Size;
sechdr.dataSize:=Size;
if (Size>0) then
sechdr.datapos:=datapos;
end;