paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:19:27 +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
globtype,globals,constexp,
symsym,
cpuinfo,
nutils,
nbas,nflw,ncon,ninl,ncal,nld;
@ -112,7 +113,7 @@ unit optunrol;
if (counts mod unrolls<>0) and
((counts mod unrolls)=unrolls-i) then
begin
tfornode(node).entrylabel:=clabelnode.create(cnothingnode.create,nil);
tfornode(node).entrylabel:=clabelnode.create(cnothingnode.create,tlabelsym.create('$optunrol'));
addstatement(unrollstatement,tfornode(node).entrylabel);
end;