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

* synchronised with trunk till r40578

Browse Source 
git-svn-id: branches/debug_eh@40579 -
This commit is contained in:
Jonas Maebe 2018-12-16 21:00:49 +00:00
commit 24c49301e3
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/llvm/nllvmtcon.pas
View File

@ -117,6 +117,7 @@ interface
function emit_placeholder(def: tdef): ttypedconstplaceholder; override; function emit_placeholder(def: tdef): ttypedconstplaceholder; override;
class function get_string_symofs(typ: tstringtype; winlikewidestring: boolean): pint; override; class function get_string_symofs(typ: tstringtype; winlikewidestring: boolean): pint; override;
class function get_dynarray_symofs: pint; override;
property appendingdef: boolean write fappendingdef; property appendingdef: boolean write fappendingdef;
end; end;
@ -851,6 +852,13 @@ implementation
end; end;
class function tllvmtai_typedconstbuilder.get_dynarray_symofs: pint;
begin
{ LLVM does not support labels in the middle of a declaration }
result:=get_dynarray_header_size;
end;
begin begin
ctai_typedconstbuilder:=tllvmtai_typedconstbuilder; ctai_typedconstbuilder:=tllvmtai_typedconstbuilder;
end. end.