瀏覽代碼

* openarray to openarray should still be equal for parameters

git-svn-id: trunk@4755 -
peter 19 年之前
父節點
當前提交
6fa1b27add
共有 1 個文件被更改,包括 5 次插入0 次删除
  1. 5 0
      compiler/defcmp.pas

+ 5 - 0
compiler/defcmp.pas

@@ -673,6 +673,11 @@ implementation
                                  doconv:=tc_dynarray_2_openarray;
                                  eq:=te_convert_l2;
                                end
+                            else
+                             { open array -> open array }
+                             if is_open_array(def_from) and
+                                equal_defs(tarraydef(def_from).elementtype.def,tarraydef(def_to).elementtype.def) then
+                               eq:=te_equal
                             else
                              { array -> open array }
                              if not(cdo_parameter in cdoptions) and