From 851ebd9850b8b673c5d36c4b63e24d64a6420d0f Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 25 Aug 2015 00:29:02 +0000
Subject: [PATCH] * use a normalized MemBasePos (i.e. offset<16) for stack
 segments

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

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 2a18898cda..431c9b5c65 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -2119,7 +2119,7 @@ implementation
         for i:=0 to ExeUnifiedLogicalSegments.Count-1 do
           begin
             UniSeg:=TMZExeUnifiedLogicalSegment(ExeUnifiedLogicalSegments[i]);
-            if UniSeg.PrimaryGroup<>'' then
+            if (UniSeg.PrimaryGroup<>'') or (UniSeg.IsStack) then
               lastbase:=(UniSeg.MemPos shr 4) shl 4
             else
               begin