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

* another loop counter copying fix

Browse Source 
git-svn-id: trunk@49028 -
This commit is contained in:
florian 2021-03-21 21:39:57 +00:00
parent 786688eef6
commit a32a870f33
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nflw.pas
View File

@ -1905,13 +1905,19 @@ implementation
countermin, countermax: Tconstexprint;
procedure iterate_counter(var s : tstatementnode;fw : boolean);
var
leftcopy: tnode;
begin
{ get rid of nf_write etc. as the left node is now only read }
leftcopy:=left.getcopy;
node_reset_flags(leftcopy,[nf_pass1_done,nf_modify,nf_write]);
if fw then
addstatement(s,
cassignmentnode.create_internal(left.getcopy,cinlinenode.createintern(in_succ_x,false,left.getcopy)))
cassignmentnode.create_internal(left.getcopy,cinlinenode.createintern(in_succ_x,false,leftcopy)))
else
addstatement(s,
cassignmentnode.create_internal(left.getcopy,cinlinenode.createintern(in_pred_x,false,left.getcopy)));
cassignmentnode.create_internal(left.getcopy,cinlinenode.createintern(in_pred_x,false,leftcopy)));
end;
function iterate_counter_func(arg : tnode;fw : boolean) : tnode;