ソースを参照

+ set the initial SS:SP in the NewExe header

git-svn-id: trunk@42572 -
nickysn 6 年 前
コミット
c70f2c63cd
1 ファイル変更2 行追加0 行削除
  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;