From 901dde5fa58392d77b49bd648be0c72b475ac287 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 3 Aug 2019 00:42:56 +0000
Subject: [PATCH] + fill the auto data segment number in the NewExe header

git-svn-id: trunk@42570 -
---
 compiler/ogomf.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 217ed374f8..4d258c8a82 100644
--- a/compiler/ogomf.pas
+++ b/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;