* var parameter checking for classes and interfaces in Delphi mode

compiler/ncal.pas

@@ -327,11 +327,26 @@ implementation
                    (from_def.deftype=pointerdef) and
                    (to_def.deftype=pointerdef)
                     ) and
-              { child classes can be also passed }
+              { child objects can be also passed }
+              { in non-delphi mode, otherwise    }
+              { they must match exactly, except  }
+              { if they are objects              }
                 not(
-                   (from_def.deftype=objectdef) and
-                   (to_def.deftype=objectdef) and
-                   tobjectdef(from_def).is_related(tobjectdef(to_def))
+                    (from_def.deftype=objectdef) and
+                    (to_def.deftype=objectdef) and
+                   
+                    ((
+                      (tobjectdef(from_def).is_related(tobjectdef(to_def))) and
+                      (m_delphi in aktmodeswitches) and                  
+                      (tobjectdef(from_def).objecttype=odt_object) and
+                      (tobjectdef(to_def).objecttype=odt_object)
+                     ) or
+                   
+                    (
+                      (tobjectdef(from_def).is_related(tobjectdef(to_def))) and
+                      (not (m_delphi in aktmodeswitches))
+                    ))
+                   
                    ) and
               { passing a single element to a openarray of the same type }
                 not(
@@ -2631,7 +2646,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.105  2002-10-06 21:02:17  peter
+  Revision 1.106  2002-10-14 18:20:30  carl
+    * var parameter checking for classes and interfaces in Delphi mode
+
+  Revision 1.105  2002/10/06 21:02:17  peter
     * fixed limit checking for qword
 
   Revision 1.104  2002/10/05 15:15:45  peter