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

* fixed writing of procvardef records (they're also written as tck_record)

Browse Source 
git-svn-id: trunk@32298 -
This commit is contained in:
Jonas Maebe 2015-11-12 22:00:25 +00:00
parent 09c8c5eba0
commit 1675c27e59
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/llvm/agllvm.pas
View File

@ -745,7 +745,8 @@ implementation
begin begin
writer.AsmWrite(defstr); writer.AsmWrite(defstr);
writer.AsmWrite(' '); writer.AsmWrite(' ');
if tabstractrecordsymtable(tabstractrecorddef(hp.def).symtable).usefieldalignment<>C_alignment then if (hp.def.typ in [objectdef,recorddef]) and
(tabstractrecordsymtable(tabstractrecorddef(hp.def).symtable).usefieldalignment<>C_alignment) then
writer.AsmWrite('<{') writer.AsmWrite('<{')
else else
writer.AsmWrite('{'); writer.AsmWrite('{');
@ -758,7 +759,8 @@ implementation
first:=false; first:=false;
WriteTypedConstData(p); WriteTypedConstData(p);
end; end;
if tabstractrecordsymtable(tabstractrecorddef(hp.def).symtable).usefieldalignment<>C_alignment then if (hp.def.typ in [recorddef,objectdef]) and
(tabstractrecordsymtable(tabstractrecorddef(hp.def).symtable).usefieldalignment<>C_alignment) then
writer.AsmWrite('}>') writer.AsmWrite('}>')
else else
writer.AsmWrite('}'); writer.AsmWrite('}');