Explorar o código

+ fill the auto data segment number in the NewExe header

git-svn-id: trunk@42570 -
nickysn %!s(int64=6) %!d(string=hai) anos
pai
achega
901dde5fa5
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      compiler/ogomf.pas

+ 2 - 0
compiler/ogomf.pas

@@ -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;