+ classrefdef is assignment compatible to pointers in delphi mode

git-svn-id: trunk@7648 -
2025-11-02 09:09:47 +01:00 · 2007-06-13 20:21:33 +00:00 · 2007-06-13 20:21:33 +00:00 · c7037df254
commit c7037df254
parent 563b325382
1 changed files with 8 additions and 0 deletions
--- a/compiler/defcmp.pas
+++ b/compiler/defcmp.pas
@ -1252,6 +1252,14 @@ implementation
                    end;
                 end
               else
+                 if (m_delphi in current_settings.modeswitches) and
+                    is_voidpointer(def_from) then
+                  begin
+                    doconv:=tc_equal;
+                    { prefer pointer-pointer assignments }
+                    eq:=te_convert_l2;
+                  end
+                 else
                { nil is compatible with class references }
                if (fromtreetype=niln) then
                 begin