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

* avoid that types of limits of reverted loops are widened

Browse Source
This commit is contained in:
florian 2024-11-25 21:16:30 +01:00
parent 81d24975f0
commit ac4b089e14
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/optloop.pas
View File

@ -674,8 +674,11 @@ unit optloop;
writeln('**********************************************************************************');
{$endif DEBUG_OPTFORLOOP}
include(tfornode(n).loopflags,lnf_backward);
tfornode(n).right:=caddnode.create_internal(addn,caddnode.create_internal(subn,tfornode(n).t1,tfornode(n).right),
cordconstnode.create(1,tfornode(n).left.resultdef,false));
tfornode(n).right:=ctypeconvnode.create_internal(
caddnode.create_internal(addn,caddnode.create_internal(subn,
tfornode(n).t1,tfornode(n).right),
cordconstnode.create(1,tfornode(n).left.resultdef,false)),
tfornode(n).left.resultdef);
tfornode(n).t1:=cordconstnode.create(1,tfornode(n).left.resultdef,false);
include(tfornode(n).loopflags,lnf_counter_not_used);
exclude(n.transientflags,tnf_pass1_done);