From 6118e64e8531f6f7199efed57ccf3e7a19540a69 Mon Sep 17 00:00:00 2001 From: Martin Date: Thu, 14 Oct 2021 15:04:24 +0200 Subject: [PATCH] JitClass: public AnchestorJitType --- components/jitclasses/jitclass.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/components/jitclasses/jitclass.pas b/components/jitclasses/jitclass.pas index 151c0eb335..68de487b27 100644 --- a/components/jitclasses/jitclass.pas +++ b/components/jitclasses/jitclass.pas @@ -295,6 +295,7 @@ type property JitProperties: TJitPropertyList read FJitProperties; property JitClass: TClass read GetJitClass; + property AncestorJitClass: TJitClassCreator read FAncestorJitClass; experimental; end; implementation @@ -1139,7 +1140,7 @@ begin FAncestorJitType := TJitTypeJitClass(at); end; - if FAncestorJitType <> nil then begin; + if FAncestorJitType <> nil then begin if (FAncestorJitType is TJitTypeJitClass) then FAncestorJitClass := TJitClassCreator(TJitTypeJitClass(FAncestorJitType).JitClassCreator) else