Преглед на файлове

+ internal linker takes care of setpeflags

git-svn-id: trunk@10499 -
florian преди 17 години
родител
ревизия
cad678840e
променени са 1 файла, в които са добавени 4 реда и са изтрити 1 реда
  1. 4 1
      compiler/ogcoff.pas

+ 4 - 1
compiler/ogcoff.pas

@@ -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);