瀏覽代碼

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

git-svn-id: trunk@36101 -
svenbarth 8 年之前
父節點
當前提交
8f4ef91efb
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/nld.pas

+ 1 - 1
compiler/nld.pas

@@ -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));