Преглед на файлове

* ensure that the def used when calling virtual methods matches the
procdefinition (e.g. regarding the self parameter type)

git-svn-id: trunk@32419 -

Jonas Maebe преди 9 години
родител
ревизия
83521e7d1f
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
  1. 1 0
      compiler/ncgcal.pas

+ 1 - 0
compiler/ncgcal.pas

@@ -1016,6 +1016,7 @@ implementation
                    retloc:=do_call_ref(href)
                  else
                    begin
+                     hlcg.g_ptrtypecast_reg(current_asmdata.CurrAsmList,vmt_entry.resultdef,cpointerdef.getreusable(procdefinition),pvreg);
                      retloc:=hlcg.a_call_reg(current_asmdata.CurrAsmList,tabstractprocdef(procdefinition),pvreg,paralocs);
                      unget_call_reg(current_asmdata.CurrAsmList,pvreg);
                    end;