mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-08 20:46:00 +02:00
* fixed writing of procvardef records (they're also written as tck_record)
git-svn-id: trunk@32298 -
This commit is contained in:
parent
09c8c5eba0
commit
1675c27e59
@ -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('}');
|
||||||
|
Loading…
Reference in New Issue
Block a user