mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-08 03:26:29 +02:00
+ set the initial SS:SP in the NewExe header
git-svn-id: trunk@42572 -
This commit is contained in:
parent
dbafff24fe
commit
c70f2c63cd
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user