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

* "checkcontinue" replaced with "has_child_of_type(..., [continuen])"

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-05-09 21:28:36 +01:00 committed by FPK
parent 9077954762
commit 205e4f3421
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nflw.pas
View File

@ -1916,15 +1916,6 @@ implementation
end;
function checkcontinue(var n:tnode; arg: pointer): foreachnoderesult;
begin
if n.nodetype=continuen then
result:=fen_norecurse_true
else
result:=fen_false;
end;
function tfornode.makewhileloop : tnode;
var
ifblock,loopblock : tblocknode;
@ -2007,7 +1998,7 @@ implementation
not((lnf_backward in loopflags) and (get_ordinal_value(t1)=countermin)) and
{ neither might the for loop contain a continue statement as continue in a while loop would skip the increment at the end
of the loop, this could be overcome by replacing the continue statement with an pred/succ; continue sequence }
not(foreachnodestatic(t2,@checkcontinue,nil)) and
not(has_node_of_type(t2,[continuen])) and
{ if the loop is unrolled and there is a jump into the loop,
then we can't do the trick with incrementing the loop var only at the
end