|
@@ -746,6 +746,7 @@ implementation
|
|
recordalignmin,maxcrecordalign);
|
|
recordalignmin,maxcrecordalign);
|
|
trecorddef(res^.Data).add_fields_from_deflist(fieldtypes);
|
|
trecorddef(res^.Data).add_fields_from_deflist(fieldtypes);
|
|
end;
|
|
end;
|
|
|
|
+ trecordsymtable(trecorddef(res^.Data).symtable).addalignmentpadding;
|
|
result:=trecorddef(res^.Data);
|
|
result:=trecorddef(res^.Data);
|
|
end;
|
|
end;
|
|
|
|
|