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

* i8086 far data memory model fixes in tcgsubscriptnode.pass_generate_code

Browse Source 
git-svn-id: trunk@27340 -
This commit is contained in:
nickysn 2014-03-29 18:30:32 +00:00
parent ed3a49372d
commit 75f29aacc3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgmem.pas
View File

@ -337,7 +337,7 @@ implementation
(target_info.system in systems_garbage_collected_managed_types) then
begin
{ the contents of a class are aligned to a sizeof(pointer) }
location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),sizeof(pint));
location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),voidpointertype.size);
case left.location.loc of
LOC_CREGISTER,
LOC_REGISTER:
@ -351,7 +351,7 @@ implementation
end
else
{$endif}
location.reference.base := left.location.register;
hlcg.reference_reset_base(location.reference,left.resultdef,left.location.register,0,location.reference.alignment);
end;
LOC_CREFERENCE,
LOC_REFERENCE,
@ -361,7 +361,8 @@ implementation
LOC_SUBSETREF,
LOC_CSUBSETREF:
begin
location.reference.base:=cg.getaddressregister(current_asmdata.CurrAsmList);
hlcg.reference_reset_base(location.reference,left.resultdef,
hlcg.getaddressregister(current_asmdata.CurrAsmList,left.resultdef),0,location.reference.alignment);
hlcg.a_load_loc_reg(current_asmdata.CurrAsmList,left.resultdef,left.resultdef,left.location,location.reference.base);
end;
LOC_CONSTANT: