瀏覽代碼

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