Răsfoiți Sursa

* openarray to openarray should still be equal for parameters

git-svn-id: trunk@4755 -
peter 19 ani în urmă
părinte
comite
6fa1b27add
1 a modificat fișierele cu 5 adăugiri și 0 ștergeri
  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