Răsfoiți Sursa

+ set the initial SS:SP in the NewExe header

git-svn-id: trunk@42572 -
nickysn 6 ani în urmă
părinte
comite
c70f2c63cd
1 a modificat fișierele cu 2 adăugiri și 0 ștergeri
  1. 2 0
      compiler/ogomf.pas

+ 2 - 0
compiler/ogomf.pas

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