Browse Source

* use a normalized MemBasePos (i.e. offset<16) for stack segments

git-svn-id: trunk@31415 -
nickysn 10 years ago
parent
commit
851ebd9850
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ogomf.pas

+ 1 - 1
compiler/ogomf.pas

@@ -2119,7 +2119,7 @@ implementation
         for i:=0 to ExeUnifiedLogicalSegments.Count-1 do
         for i:=0 to ExeUnifiedLogicalSegments.Count-1 do
           begin
           begin
             UniSeg:=TMZExeUnifiedLogicalSegment(ExeUnifiedLogicalSegments[i]);
             UniSeg:=TMZExeUnifiedLogicalSegment(ExeUnifiedLogicalSegments[i]);
-            if UniSeg.PrimaryGroup<>'' then
+            if (UniSeg.PrimaryGroup<>'') or (UniSeg.IsStack) then
               lastbase:=(UniSeg.MemPos shr 4) shl 4
               lastbase:=(UniSeg.MemPos shr 4) shl 4
             else
             else
               begin
               begin