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

* better code for ... downto 1 for-loops

Browse Source
This commit is contained in:
florian 2024-11-28 22:32:38 +01:00
parent 45f7be1b3c
commit 798f2ba632
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nflw.pas
View File

@ -2103,7 +2103,16 @@ implementation
else
toexpr:=t1.getcopy;
addstatement(ifstatements,cwhilerepeatnode.create(caddnode.create_internal(cond,leftcopy,toexpr),loopblock,false,true));
{ checking against zero might improve the generated assembler,
doing this transformation for other values is normally not beneficial }
if do_loopvar_at_end and (lnf_backward in loopflags) and is_constintnode(toexpr) and (tordconstnode(toexpr).value=1) and
(countermin<tordconstnode(toexpr).value) then
begin
tordconstnode(toexpr).value:=tordconstnode(toexpr).value-1;
addstatement(ifstatements,cwhilerepeatnode.create(caddnode.create_internal(equaln,leftcopy,toexpr),loopblock,false,true))
end
else
addstatement(ifstatements,cwhilerepeatnode.create(caddnode.create_internal(cond,leftcopy,toexpr),loopblock,false,true));
if usefromtemp then
fromexpr:=ctemprefnode.create(fromtemp)