Browse Source

+ Patch to prefer getpropinfo(ptypeinfo,name) over getpropinfo(tobject,name) when called with getpropinfo(aclass.classinfo) from Peter

michael 22 years ago
parent
commit
224a670b4a
1 changed files with 6 additions and 2 deletions
  1. 6 2
      compiler/defcmp.pas

+ 6 - 2
compiler/defcmp.pas

@@ -864,7 +864,8 @@ implementation
                       is_voidpointer(def_from) then
                       is_voidpointer(def_from) then
                     begin
                     begin
                       doconv:=tc_equal;
                       doconv:=tc_equal;
-                      eq:=te_convert_l1;
+                      { prefer pointer-pointer assignments }
+                      eq:=te_convert_l2;
                     end
                     end
                    else
                    else
                    { nil is compatible with class instances and interfaces }
                    { nil is compatible with class instances and interfaces }
@@ -1249,7 +1250,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.37  2003-11-10 19:09:29  peter
+  Revision 1.38  2003-11-26 15:11:42  michael
+  + Patch to prefer getpropinfo(ptypeinfo,name) over getpropinfo(tobject,name) when called with getpropinfo(aclass.classinfo) from Peter
+
+  Revision 1.37  2003/11/10 19:09:29  peter
     * procvar default value support
     * procvar default value support
 
 
   Revision 1.36  2003/11/04 22:30:15  florian
   Revision 1.36  2003/11/04 22:30:15  florian