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

* generate LLVM typedefs for file-typed data

Browse Source 
git-svn-id: trunk@31344 -
This commit is contained in:
Jonas Maebe 2015-08-18 16:10:29 +00:00
parent 2cf17c0487
commit 4c5191f5d7
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/llvm/llvmtype.pas
View File

@ -67,6 +67,7 @@ interface
procedure appendprocdef(list:TAsmList;def:tprocdef);override; procedure appendprocdef(list:TAsmList;def:tprocdef);override;
procedure appenddef_object(list:TAsmList;def: tobjectdef);override; procedure appenddef_object(list:TAsmList;def: tobjectdef);override;
procedure appenddef_variant(list:TAsmList;def: tvariantdef);override; procedure appenddef_variant(list:TAsmList;def: tvariantdef);override;
procedure appenddef_file(list:TasmList;def:tfiledef);override;
procedure appendsym_var(list:TAsmList;sym:tabstractnormalvarsym); procedure appendsym_var(list:TAsmList;sym:tabstractnormalvarsym);
procedure appendsym_staticvar(list:TAsmList;sym:tstaticvarsym);override; procedure appendsym_staticvar(list:TAsmList;sym:tstaticvarsym);override;
@ -674,4 +675,16 @@ implementation
appenddef(list,tabstractrecorddef(search_system_type('TVARDATA').typedef)); appenddef(list,tabstractrecorddef(search_system_type('TVARDATA').typedef));
end; end;
procedure TLLVMTypeInfo.appenddef_file(list:TAsmList;def:tfiledef);
begin
case tfiledef(def).filetyp of
ft_text :
appenddef(list,tabstractrecorddef(search_system_type('TEXTREC').typedef));
ft_typed,
ft_untyped :
appenddef(list,tabstractrecorddef(search_system_type('FILEREC').typedef));
end;
end;
end. end.