paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 15:20:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed lack of the calculation code for the strength reduction optimization.

Browse Source
This commit is contained in:
Yuriy Sydorov 2021-09-15 00:31:10 +03:00
parent a7e234254f
commit abe3002b5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/optloop.pas
View File

@ -512,9 +512,9 @@ unit optloop;
loopcode:=internalstatements(loopcodestatements); loopcode:=internalstatements(loopcodestatements);
addstatement(loopcodestatements,tfornode(node).t2); addstatement(loopcodestatements,tfornode(node).t2);
addstatement(loopcodestatements,calccode);
tfornode(node).t2:=loopcode; tfornode(node).t2:=loopcode;
do_firstpass(node); do_firstpass(node);
addstatement(loopcodestatements,calccode);
result:=internalstatements(newcodestatements); result:=internalstatements(newcodestatements);
addstatement(newcodestatements,initcode); addstatement(newcodestatements,initcode);