Browse Source

* fixed i.e. when type casting array constructors

git-svn-id: trunk@3532 -
florian 19 years ago
parent
commit
3c4207bbe0
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/ncnv.pas

+ 1 - 0
compiler/ncnv.pas

@@ -1604,6 +1604,7 @@ implementation
                                 (left.resulttype.def.deftype=formaldef) or
                                 (left.resulttype.def.deftype=formaldef) or
                                 (
                                 (
                                  not(is_open_array(left.resulttype.def)) and
                                  not(is_open_array(left.resulttype.def)) and
+                                 not(is_array_constructor(left.resulttype.def)) and
                                  (left.resulttype.def.size=resulttype.def.size)
                                  (left.resulttype.def.size=resulttype.def.size)
                                 ) or
                                 ) or
                                 (
                                 (