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

* when getting rid of a for loop by unrolling, simplify the block afterwards,

Browse Source 
this requires also that the constant is first passed

git-svn-id: trunk@33244 -
This commit is contained in:
florian 2016-03-13 18:19:53 +00:00
parent 730a3c2666
commit b59219b8e0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/optloop.pas
View File

@ -87,6 +87,7 @@ unit optloop;
internalerror(2012090402);
n.free;
n:=cordconstnode.create(preplaceinfo(arg)^.value,preplaceinfo(arg)^.node.resultdef,false);
do_firstpass(n);
end;
result:=fen_false;
end;
@ -185,6 +186,7 @@ unit optloop;
{ create block statement }
result:=internalstatements(newforstatement);
addstatement(newforstatement,unrollblock);
doinlinesimplify(result);
end;
end
else