|
@@ -894,9 +894,9 @@ implementation
|
|
|
not(is_cppclass(tprocdef(procdefinition)._class)) then
|
|
not(is_cppclass(tprocdef(procdefinition)._class)) then
|
|
|
cg.g_maybe_testvmt(current_asmdata.CurrAsmList,vmtreg,tprocdef(procdefinition)._class);
|
|
cg.g_maybe_testvmt(current_asmdata.CurrAsmList,vmtreg,tprocdef(procdefinition)._class);
|
|
|
|
|
|
|
|
-{$ifdef vtentry}
|
|
|
|
|
{ Call through VMT, generate a VTREF symbol to notify the linker }
|
|
{ Call through VMT, generate a VTREF symbol to notify the linker }
|
|
|
vmtoffset:=tprocdef(procdefinition)._class.vmtmethodoffset(tprocdef(procdefinition).extnumber);
|
|
vmtoffset:=tprocdef(procdefinition)._class.vmtmethodoffset(tprocdef(procdefinition).extnumber);
|
|
|
|
|
+{$ifdef vtentry}
|
|
|
if not is_interface(tprocdef(procdefinition)._class) then
|
|
if not is_interface(tprocdef(procdefinition)._class) then
|
|
|
begin
|
|
begin
|
|
|
inc(current_asmdata.NextVTEntryNr);
|
|
inc(current_asmdata.NextVTEntryNr);
|
peter