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

* fixed compilation

Browse Source 
git-svn-id: trunk@2802 -
This commit is contained in:
tom_at_work 2006-03-07 20:15:26 +00:00
parent 11398b33ab
commit 23fda6dc1c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/powerpc64/aasmcpu.pas
View File

@ -464,7 +464,7 @@ procedure fixup_jmps(list: taasmoutput);
var
p: tai;
newjmp: taicpu;
labelpositions: TFPObjectList;
labelpositions: TFPList;
instrpos: ptrint;
l: tasmlabel;
inserted_something: boolean;
@ -472,7 +472,7 @@ begin
// if certainly not enough instructions to cause an overflow, don't bother
if (list.count <= (high(smallint) div 4)) then
exit;
labelpositions := tlist.create;
labelpositions := TFPList.create;
p := tai(list.first);
instrpos := 1;
// record label positions