summaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
authorsvenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2>2017-05-04 21:55:12 +0000
committersvenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2>2017-05-04 21:55:12 +0000
commit28db71d05adccaa38c4ae7428d0bc6e81485ca47 (patch)
treebeda906614644a7c249862a40a6232e168b4d6a0 /compiler
parent934541f857776fc659d41d46caa65a89fe4c9efd (diff)
downloadfpc-28db71d05adccaa38c4ae7428d0bc6e81485ca47.tar.gz
* tarrayconstructornode: force conversion to set if there's a range node in the tree
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@36101 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler')
-rw-r--r--compiler/nld.pas2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nld.pas b/compiler/nld.pas
index c2f4bc6876..23cff9440a 100644
--- a/compiler/nld.pas
+++ b/compiler/nld.pas
@@ -1031,7 +1031,7 @@ implementation
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
run }
- if not(allow_array_constructor) then
+ if not allow_array_constructor or has_range_node then
begin
hp:=tarrayconstructornode(getcopy);
arrayconstructor_to_set(tnode(hp));