|
@@ -356,9 +356,9 @@ implementation
|
|
|
(target_info.system in systems_garbage_collected_managed_types) then
|
|
(target_info.system in systems_garbage_collected_managed_types) then
|
|
|
begin
|
|
begin
|
|
|
{ take care of the alignment of the fields }
|
|
{ take care of the alignment of the fields }
|
|
|
- if not(left.resultdef is tobjectdef) then
|
|
|
|
|
|
|
+ if not(left.resultdef is tabstractrecorddef) then
|
|
|
Internalerror(2018021601);
|
|
Internalerror(2018021601);
|
|
|
- location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),newalignment(tObjectSymtable(tobjectdef(left.resultdef).symtable).recordalignment,vs.fieldoffset),[]);
|
|
|
|
|
|
|
+ location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),newalignment(tabstractrecordsymtable(tabstractrecorddef(left.resultdef).symtable).recordalignment,vs.fieldoffset),[]);
|
|
|
case left.location.loc of
|
|
case left.location.loc of
|
|
|
LOC_CREGISTER,
|
|
LOC_CREGISTER,
|
|
|
LOC_REGISTER:
|
|
LOC_REGISTER:
|
florian