+ initialize some defaults in the TNewExeHeader constructor

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42224 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 13 insertions, 0 deletions

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 023219502b..a7b15bddee 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -3356,6 +3356,19 @@ cleanup:
       begin
         SetLength(FMsDosStub,High(win16stub)-Low(win16stub)+1);
         Move(win16stub[Low(win16stub)],FMsDosStub[0],High(win16stub)-Low(win16stub)+1);
+
+        { BP7 identifies itself as linker version 6.1 in the Win16 .exe files it produces }
+        LinkerVersion:=6;
+        LinkerRevision:=1;
+        LogicalSectorAlignmentShiftCount:=8;  { 256-byte logical sectors }
+        TargetOS:=netoWindows;
+        ExpectedWindowsVersion:=$0300;
+        Flags:=[nehfNotWindowAPICompatible,nehfWindowAPICompatible,nehfMultipleData,nehfProtectedModeOnly];
+        AdditionalFlags:=[];
+        GangLoadAreaStart:=0;
+        GangLoadAreaLength:=0;
+        Reserved:=0;
+        Reserved2:=0;
       end;
 
     procedure TNewExeHeader.WriteTo(aWriter: TObjectWriter);