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

* support writing aggregate LLVM constants that are not packed

Browse Source 
git-svn-id: branches/debug_eh@42107 -
This commit is contained in:
Jonas Maebe 2019-05-19 19:26:55 +00:00
parent 0cd0e1614b
commit 9f18cbf5d6
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/llvm/agllvm.pas
View File

@ -1047,7 +1047,10 @@ implementation
if not(metadata) then if not(metadata) then
begin begin
writer.AsmWrite(defstr); writer.AsmWrite(defstr);
writer.AsmWrite(' <{'); if not(df_llvm_no_struct_packing in hp.def.defoptions) then
writer.AsmWrite(' <{')
else
writer.AsmWrite(' {')
end end
else else
begin begin
@ -1064,11 +1067,14 @@ implementation
end; end;
if not(metadata) then if not(metadata) then
begin begin
writer.AsmWrite('}>'); if not(df_llvm_no_struct_packing in hp.def.defoptions) then
writer.AsmWrite(' }>')
else
writer.AsmWrite(' }')
end end
else else
begin begin
writer.AsmWrite('}'); writer.AsmWrite(' }');
end; end;
end; end;
tck_array: tck_array: