paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 16:39:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* create_for_in_loop: if there's a choice between iterating an array and a set then prefer the set for backwards compatibility

Browse Source 
git-svn-id: trunk@36097 -
This commit is contained in:
svenbarth 2017-05-04 21:38:00 +00:00
parent a8b1d340c7
commit c6f19b9888
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nflw.pas
View File

@ -925,6 +925,15 @@ implementation
end end
else else
begin begin
{ prefer set if loop var could be a set var and the loop
expression can indeed be a set }
if (expr.nodetype=arrayconstructorn) and
(hloopvar.resultdef.typ in [enumdef,orddef]) and
arrayconstructor_can_be_set(expr) then
begin
expr:=arrayconstructor_to_set(expr,false);
typecheckpass(expr);
end;
case expr.resultdef.typ of case expr.resultdef.typ of
stringdef: result:=create_string_for_in_loop(hloopvar, hloopbody, expr); stringdef: result:=create_string_for_in_loop(hloopvar, hloopbody, expr);
arraydef: result:=create_array_for_in_loop(hloopvar, hloopbody, expr); arraydef: result:=create_array_for_in_loop(hloopvar, hloopbody, expr);