paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 13:28:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* store break/continue usage in a variable

Browse Source 
git-svn-id: trunk@25247 -
This commit is contained in:
florian 2013-08-11 21:13:24 +00:00
parent cfcb4cab26
commit d23a5b7c7d
1 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
compiler/optloop.pas
View File

@ -100,6 +100,7 @@ unit optloop;
unrollblock : tblocknode;
getridoffor : boolean;
replaceinfo : treplaceinfo;
usesbreakcontinue : boolean;
begin
result:=nil;
if (cs_opt_size in current_settings.optimizerswitches) then
@ -117,6 +118,8 @@ unit optloop;
else
counts:=tordconstnode(tfornode(node).t1).value-tordconstnode(tfornode(node).right).value+1;
usesbreakcontinue:=foreachnodestatic(tfornode(node).t2,@checkbreakcontinue,nil);
{ don't unroll more than we need,
multiply unroll by two here because we can get rid
@ -129,7 +132,7 @@ unit optloop;
unrollblock:=internalstatements(unrollstatement);
{ can we get rid completly of the for ? }
getridoffor:=(unrolls=counts) and not(foreachnodestatic(tfornode(node).t2,@checkbreakcontinue,nil));
getridoffor:=(unrolls=counts) and not(usesbreakcontinue);
if getridoffor then
begin
@ -153,28 +156,28 @@ unit optloop;
addstatement(unrollstatement,tfornode(node).entrylabel);
end;
if getridoffor then
begin
foreachnodestatic(tnode(unrollstatement),@replaceloadnodes,@replaceinfo);
if lnf_backward in tfornode(node).loopflags then
replaceinfo.value:=replaceinfo.value-1
else
replaceinfo.value:=replaceinfo.value+1;
end
if getridoffor then
begin
foreachnodestatic(tnode(unrollstatement),@replaceloadnodes,@replaceinfo);
if lnf_backward in tfornode(node).loopflags then
replaceinfo.value:=replaceinfo.value-1
else
replaceinfo.value:=replaceinfo.value+1;
end
else
begin
{ for itself increases at the last iteration }
if i<unrolls then
begin
{ for itself increases at the last iteration }
if i<unrolls then
begin
{ insert incr/decrementation of counter var }
if lnf_backward in tfornode(node).loopflags then
addstatement(unrollstatement,
geninlinenode(in_dec_x,false,ccallparanode.create(tfornode(node).left.getcopy,nil)))
else
addstatement(unrollstatement,
geninlinenode(in_inc_x,false,ccallparanode.create(tfornode(node).left.getcopy,nil)));
end;
end;
{ insert incr/decrementation of counter var }
if lnf_backward in tfornode(node).loopflags then
addstatement(unrollstatement,
geninlinenode(in_dec_x,false,ccallparanode.create(tfornode(node).left.getcopy,nil)))
else
addstatement(unrollstatement,
geninlinenode(in_inc_x,false,ccallparanode.create(tfornode(node).left.getcopy,nil)));
end;
end;
end;
{ can we get rid of the for statement? }
if getridoffor then