Преглед изворни кода

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

git-svn-id: trunk@31415 -
nickysn пре 10 година
родитељ
комит
851ebd9850
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/ogomf.pas

+ 1 - 1
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