paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

JitClass: public AnchestorJitType

Browse Source
This commit is contained in:
Martin 2021-10-14 15:04:24 +02:00
parent d21ebb1b60
commit 6118e64e85
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/jitclasses/jitclass.pas
View File

@ -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