paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:50:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Do not assume sizeof(pint) section alignment if no alignment is specified for the section.

Browse Source 
git-svn-id: trunk@13092 -
This commit is contained in:
yury 2009-05-04 08:27:36 +00:00
parent 6f1f21c432
commit 50060dfd52
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogcoff.pas
View File

@ -742,7 +742,6 @@ const pemagic : array[0..3] of byte = (
alignflag : longword;
begin
aoptions:=[];
aalign:=sizeof(pint);
if flags and PE_SCN_CNT_CODE<>0 then
include(aoptions,oso_executable);
if flags and PE_SCN_MEM_DISCARDABLE<>0 then
@ -774,7 +773,11 @@ const pemagic : array[0..3] of byte = (
else if alignflag=PE_SCN_ALIGN_2BYTES then
aalign:=2
else if alignflag=PE_SCN_ALIGN_1BYTES then
aalign:=1;
aalign:=1
else if alignflag=0 then
aalign:=0
else
Internalerror(2009050401);
end;