mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-28 14:25:05 +02:00
JitClass: Allow looking up Interfaces via TObject.GetInterface
This commit is contained in:
parent
7114800c05
commit
818c1c82d8
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user