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

* fixed dynamic array constants for non-Darwin LLVM platforms

Browse Source 
git-svn-id: trunk@40578 -
This commit is contained in:
Jonas Maebe 2018-12-16 20:59:58 +00:00
parent 2330164ee2
commit 7cc7268635
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;
class function get_string_symofs(typ: tstringtype; winlikewidestring: boolean): pint; override;
class function get_dynarray_symofs: pint; override;
property appendingdef: boolean write fappendingdef;
end;
@ -850,6 +851,13 @@ implementation
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
ctai_typedconstbuilder:=tllvmtai_typedconstbuilder;
end.