paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 12:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fill the treference.segment in tcgtypeconvnode.second_pointer_to_array when

Browse Source 
the source type is a far (or huge) pointer

git-svn-id: trunk@27279 -
This commit is contained in:
nickysn 2014-03-25 01:46:45 +00:00
parent a9f56d2714
commit bd75abb64b
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgcnv.pas
View File

@ -363,6 +363,10 @@ interface
else
{$endif}
location.reference.base := left.location.register;
{$ifdef i8086}
if is_farpointer(left.resultdef) or is_hugepointer(left.resultdef) then
location.reference.segment := GetNextReg(left.location.register);
{$endif i8086}
end;
LOC_REFERENCE,
LOC_CREFERENCE,
@ -372,9 +376,13 @@ interface
LOC_SUBSETREF,
LOC_CSUBSETREF:
begin
location.reference.base:=cg.getaddressregister(current_asmdata.CurrAsmList);
location.reference.base:=hlcg.getaddressregister(current_asmdata.CurrAsmList,left.resultdef);
hlcg.a_load_loc_reg(current_asmdata.CurrAsmList,left.resultdef,left.resultdef,left.location,
location.reference.base);
{$ifdef i8086}
if is_farpointer(left.resultdef) or is_hugepointer(left.resultdef) then
location.reference.segment := GetNextReg(location.reference.base);
{$endif i8086}
if left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE] then
location_freetemp(current_asmdata.CurrAsmList,left.location);
end;