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

+ internal linker takes care of setpeflags

Browse Source 
git-svn-id: trunk@10499 -
This commit is contained in:
florian 2008-03-17 21:06:35 +00:00
parent 989f5eb367
commit cad678840e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogcoff.pas
View File

@ -2226,7 +2226,10 @@ const pemagic : array[0..3] of byte = (
peoptheader.SizeOfStackCommit:=$1000;
peoptheader.SizeOfHeapReserve:=$100000;
peoptheader.SizeOfHeapCommit:=$1000;
peoptheader.LoaderFlags:=0;
if SetPEFlagsSetExplicity then
peoptheader.LoaderFlags:=peflags
else
peoptheader.LoaderFlags:=0;
peoptheader.NumberOfRvaAndSizes:=PE_DATADIR_ENTRIES;
UpdateDataDir('.idata',PE_DATADIR_IDATA);
UpdateDataDir('.edata',PE_DATADIR_EDATA);