mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 23:39:31 +02:00
+ fill the auto data segment number in the NewExe header
git-svn-id: trunk@42570 -
This commit is contained in:
parent
34b3af7e92
commit
901dde5fa5
@ -3660,6 +3660,8 @@ cleanup:
|
||||
inherited Order_ExeSection(SecName);
|
||||
TNewExeSection(CurrExeSec).ExeMetaSec:=CurrExeMetaSec;
|
||||
TNewExeSection(CurrExeSec).MemBasePos:=SegNr;
|
||||
if (CurrExeMetaSec=nemsData) and (Header.AutoDataSegmentNumber=0) then
|
||||
Header.AutoDataSegmentNumber:=SegNr;
|
||||
end;
|
||||
|
||||
function TNewExeOutput.WriteNewExe: boolean;
|
||||
|
Loading…
Reference in New Issue
Block a user