JitClass: Allow looking up Interfaces via TObject.GetInterface

This commit is contained in:
Martin 2021-11-27 20:10:35 +01:00
parent 7114800c05
commit 818c1c82d8

View File

@ -336,6 +336,8 @@ type
implementation
const EmptyIntf : array [0..3] of PtrUInt = (0,0,0,0); // Count ond Entries
function GetVMTSize(AClass: TClass): integer;
const
MAX_VMT_SIZE = 100000;
@ -1190,6 +1192,8 @@ begin
vmtIntfTable
vmtMsgStrPtr
*)
FJitPVmt^.vIntfTable:=@EmptyIntf; // A nil pointer stops the recursion
// set vmtParent
{$IFDEF HasVMTParent}
FJitPVmt^.vParent:=AncestorVMT;