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

* use get_default_segment_of_ref() in the seg() handling on i8086

Browse Source 
git-svn-id: trunk@37510 -
This commit is contained in:
nickysn 2017-10-23 14:55:52 +00:00
parent ad1ebe0667
commit d220d6f2c6
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i8086/n8086inl.pas
View File

@ -111,17 +111,11 @@ implementation
segref.refaddr:=addr_seg;
cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_16,OS_16,segref,location.register);
end
else if left.location.reference.base=NR_BP then
begin
location_reset(location,LOC_REGISTER,OS_16);
location.register:=cg.getintregister(current_asmdata.CurrAsmList,OS_16);
current_asmdata.CurrAsmList.concat(Taicpu.op_reg_reg(A_MOV,S_W,NR_SS,location.register));
end
else
begin
location_reset(location,LOC_REGISTER,OS_16);
location.register:=cg.getintregister(current_asmdata.CurrAsmList,OS_16);
current_asmdata.CurrAsmList.Concat(Taicpu.op_reg_reg(A_MOV,S_W,NR_DS,location.register));
current_asmdata.CurrAsmList.concat(Taicpu.op_reg_reg(A_MOV,S_W,get_default_segment_of_ref(left.location.reference),location.register));
end;
end;