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

* tarrayconstructornode: force conversion to set if there's a range node in the tree

Browse Source 
git-svn-id: trunk@36101 -
This commit is contained in:
svenbarth 2017-05-04 21:55:12 +00:00
parent bdef19fd79
commit 8f4ef91efb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nld.pas
View File

@ -1031,7 +1031,7 @@ implementation
Do this only if we didn't convert the arrayconstructor yet. This Do this only if we didn't convert the arrayconstructor yet. This
is needed for the cases where the resultdef is forced for a second is needed for the cases where the resultdef is forced for a second
run } run }
if not(allow_array_constructor) then if not allow_array_constructor or has_range_node then
begin begin
hp:=tarrayconstructornode(getcopy); hp:=tarrayconstructornode(getcopy);
arrayconstructor_to_set(tnode(hp)); arrayconstructor_to_set(tnode(hp));