Browse Source

* allow classref-classref always when explicit

peter 22 years ago
parent
commit
908c2c1ca7
1 changed files with 6 additions and 2 deletions
  1. 6 2
      compiler/defcmp.pas

+ 6 - 2
compiler/defcmp.pas

@@ -877,7 +877,8 @@ implementation
                    else
                    else
                     begin
                     begin
                       doconv:=tc_equal;
                       doconv:=tc_equal;
-                      if tobjectdef(tclassrefdef(def_from).pointertype.def).is_related(
+                      if explicit or
+                         tobjectdef(tclassrefdef(def_from).pointertype.def).is_related(
                            tobjectdef(tclassrefdef(def_to).pointertype.def)) then
                            tobjectdef(tclassrefdef(def_to).pointertype.def)) then
                         eq:=te_convert_l1;
                         eq:=te_convert_l1;
                     end;
                     end;
@@ -1192,7 +1193,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.8  2002-12-15 22:37:53  peter
+  Revision 1.9  2002-12-18 21:37:36  peter
+    * allow classref-classref always when explicit
+
+  Revision 1.8  2002/12/15 22:37:53  peter
     * give conversions from pointer to pwidechar a penalty (=prefer pchar)
     * give conversions from pointer to pwidechar a penalty (=prefer pchar)
 
 
   Revision 1.7  2002/12/11 22:40:12  peter
   Revision 1.7  2002/12/11 22:40:12  peter