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

* fixes loop unrolling

Browse Source 
git-svn-id: trunk@11391 -
This commit is contained in:
florian 2008-07-17 19:49:03 +00:00
parent b3d983ce07
commit 4dc547e01c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/optunrol.pas
View File

@ -34,6 +34,7 @@ unit optunrol;
uses uses
globtype,globals,constexp, globtype,globals,constexp,
symsym,
cpuinfo, cpuinfo,
nutils, nutils,
nbas,nflw,ncon,ninl,ncal,nld; nbas,nflw,ncon,ninl,ncal,nld;
@ -112,7 +113,7 @@ unit optunrol;
if (counts mod unrolls<>0) and if (counts mod unrolls<>0) and
((counts mod unrolls)=unrolls-i) then ((counts mod unrolls)=unrolls-i) then
begin begin
tfornode(node).entrylabel:=clabelnode.create(cnothingnode.create,nil); tfornode(node).entrylabel:=clabelnode.create(cnothingnode.create,tlabelsym.create('$optunrol'));
addstatement(unrollstatement,tfornode(node).entrylabel); addstatement(unrollstatement,tfornode(node).entrylabel);
end; end;