Explorar el Código

Merged revisions 2341 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

r2341 (jonas)
* fixed tlist overflow in some corner cases when fixing up jumps

git-svn-id: branches/fixes_2_0@2343 -

Jonas Maebe hace 19 años
padre
commit
63f3aa8a30
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      compiler/powerpc/aasmcpu.pas

+ 1 - 1
compiler/powerpc/aasmcpu.pas

@@ -451,7 +451,7 @@ uses cutils, cclasses;
           begin
             if p.typ = ait_label then
               begin
-                if (tai_label(p).l.labelnr > labelpositions.count) then
+                if (tai_label(p).l.labelnr >= labelpositions.count) then
                   labelpositions.count := tai_label(p).l.labelnr * 2;
                 labelpositions[tai_label(p).l.labelnr] := pointer(instrpos);
               end;