paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 15:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make rvasize the same as datasize

Browse Source 
git-svn-id: trunk@4546 -
This commit is contained in:
peter 2006-09-03 20:41:02 +00:00
parent 8573d3679e
commit 2ecd4522be
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/ogcoff.pas
View File

@ -1998,26 +1998,21 @@ const pemagic : array[0..3] of byte = (
fillchar(sechdr,sizeof(sechdr),0);
move(name[1],sechdr.name,length(name));
sechdr.rvaofs:=mempos;
sechdr.vsize:=mempos;
if win32 then
begin
sechdr.rvaofs:=mempos;
sechdr.vsize:=align(Size,$100);
end
sechdr.vsize:=Size
else
begin
sechdr.rvaofs:=mempos;
sechdr.vsize:=mempos;
end;
sechdr.vsize:=mempos;
{ sechdr.dataSize is size of initilized data. For .bss section it must be zero }
if Name <> '.bss' then
if oso_data in SecOptions then
begin
begin
if oso_data in SecOptions then
begin
sechdr.dataSize:=Size;
sechdr.datapos:=datapos;
end
else
sechdr.dataSize:=Size;
sechdr.datapos:=datapos;
end
else
sechdr.dataSize:=Size;
end;
sechdr.nrelocs:=0;
sechdr.relocpos:=0;
if win32 then