Browse Source

+ fill the auto data segment number in the NewExe header

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

+ 2 - 0
compiler/ogomf.pas

@@ -3660,6 +3660,8 @@ cleanup:
         inherited Order_ExeSection(SecName);
         inherited Order_ExeSection(SecName);
         TNewExeSection(CurrExeSec).ExeMetaSec:=CurrExeMetaSec;
         TNewExeSection(CurrExeSec).ExeMetaSec:=CurrExeMetaSec;
         TNewExeSection(CurrExeSec).MemBasePos:=SegNr;
         TNewExeSection(CurrExeSec).MemBasePos:=SegNr;
+        if (CurrExeMetaSec=nemsData) and (Header.AutoDataSegmentNumber=0) then
+          Header.AutoDataSegmentNumber:=SegNr;
       end;
       end;
 
 
     function TNewExeOutput.WriteNewExe: boolean;
     function TNewExeOutput.WriteNewExe: boolean;