From 63f3aa8a30357532dfc23a3748d310b8dd26740b Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Thu, 26 Jan 2006 10:33:00 +0000 Subject: [PATCH] Merged revisions 2341 via svnmerge from 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 - --- compiler/powerpc/aasmcpu.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/powerpc/aasmcpu.pas b/compiler/powerpc/aasmcpu.pas index 46727cbc8d..81ba444390 100644 --- a/compiler/powerpc/aasmcpu.pas +++ b/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;