Sfoglia il codice sorgente

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 19 anni fa
parent
commit
63f3aa8a30
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  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;