Browse Source

+ set the initial SS:SP in the NewExe header

git-svn-id: trunk@42572 -
nickysn 6 years ago
parent
commit
c70f2c63cd
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/ogomf.pas

+ 2 - 0
compiler/ogomf.pas

@@ -3668,6 +3668,8 @@ cleanup:
       begin
       begin
         Header.InitialIP:=EntrySym.address;
         Header.InitialIP:=EntrySym.address;
         Header.InitialCS:=TNewExeSection(EntrySym.objsection.ExeSection).MemBasePos;
         Header.InitialCS:=TNewExeSection(EntrySym.objsection.ExeSection).MemBasePos;
+        Header.InitialSP:=0;
+        Header.InitialSS:=Header.AutoDataSegmentNumber;
         Header.WriteTo(FWriter);
         Header.WriteTo(FWriter);
         { todo: write the rest of the file as well }
         { todo: write the rest of the file as well }
         Result:=True;
         Result:=True;