paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* refactored tcgtypeconvnode.second_pointer_to_array to use

Browse Source 
hlcg.reference_reset_base, which removes the need for i8086-specific ifdefs

git-svn-id: trunk@27311 -
This commit is contained in:
nickysn 2014-03-28 00:10:29 +00:00
parent 81875346cf
commit 2644d7566c
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncgcnv.pas
View File

@ -362,11 +362,7 @@ interface
end
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}
hlcg.reference_reset_base(location.reference,left.resultdef,left.location.register,0,location.reference.alignment);
end;
LOC_REFERENCE,
LOC_CREFERENCE,
@ -376,13 +372,10 @@ interface
LOC_SUBSETREF,
LOC_CSUBSETREF:
begin
location.reference.base:=hlcg.getaddressregister(current_asmdata.CurrAsmList,left.resultdef);
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);
{$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;