paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 2341 via svnmerge from

Browse Source 
svn+ssh://jonas@svn.freepascal.org/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 -
This commit is contained in:
Jonas Maebe 2006-01-26 10:33:00 +00:00
parent 4ae09e8ad9
commit 63f3aa8a30
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/powerpc/aasmcpu.pas
View File

@ -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;