* give error when converting class to interface are not related

compiler/ncnv.pas

@@ -1371,9 +1371,19 @@ implementation
                         { check if the types are related }
                         if (not(tobjectdef(left.resulttype.def).is_related(tobjectdef(resulttype.def)))) and
                            (not(tobjectdef(resulttype.def).is_related(tobjectdef(left.resulttype.def)))) then
-                          CGMessage2(type_w_classes_not_related,
-                            FullTypeName(left.resulttype.def,resulttype.def),
-                            FullTypeName(resulttype.def,left.resulttype.def));
+                          begin
+                            { Give an error when typecasting class to interface, this is compatible
+                              with delphi }
+                            if is_interface(resulttype.def) and
+                               not is_interface(left.resulttype.def) then
+                              CGMessage2(type_e_classes_not_related,
+                                FullTypeName(left.resulttype.def,resulttype.def),
+                                FullTypeName(resulttype.def,left.resulttype.def))
+                            else
+                              CGMessage2(type_w_classes_not_related,
+                                FullTypeName(left.resulttype.def,resulttype.def),
+                                FullTypeName(resulttype.def,left.resulttype.def))
+                          end;
                       end;
                    end
 
@@ -2455,7 +2465,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.154  2004-10-11 15:48:15  peter
+  Revision 1.155  2004-10-12 14:33:41  peter
+    * give error when converting class to interface are not related
+
+  Revision 1.154  2004/10/11 15:48:15  peter
     * small regvar for para fixes
     * function tvarsym.is_regvar added
     * tvarsym.getvaluesize removed, use getsize instead