paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 00:27:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ support for classrefdef

Browse Source 
git-svn-id: trunk@32163 -
This commit is contained in:
Jonas Maebe 2015-10-26 21:24:33 +00:00
parent d7bda793f2
commit cf0164b460
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/llvm/llvmtype.pas
View File

@ -66,6 +66,7 @@ interface
procedure appenddef_procvar(list:TAsmList;def:tprocvardef);override;
procedure appendprocdef(list:TAsmList;def:tprocdef);override;
procedure appenddef_object(list:TAsmList;def: tobjectdef);override;
procedure appenddef_classref(list: TAsmList; def: tclassrefdef);override;
procedure appenddef_variant(list:TAsmList;def: tvariantdef);override;
procedure appenddef_file(list:TasmList;def:tfiledef);override;
@ -672,6 +673,12 @@ implementation
end;
procedure TLLVMTypeInfo.appenddef_classref(list: TAsmList; def: tclassrefdef);
begin
record_def(tobjectdef(tclassrefdef(def).pointeddef).vmt_def);
end;
procedure TLLVMTypeInfo.appenddef_variant(list:TAsmList;def: tvariantdef);
begin
appenddef(list,tabstractrecorddef(search_system_type('TVARDATA').typedef));