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

+ tcg8086.g_copyvaluepara_openarray: support source to be in a different segment

Browse Source 
git-svn-id: trunk@27393 -
This commit is contained in:
nickysn 2014-03-30 19:55:11 +00:00
parent 4763723c75
commit 0a9f738167
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/i8086/cgcpu.pas
View File

@ -121,7 +121,8 @@ unit cgcpu;
paramgr,procinfo,fmodule,
rgcpu,rgx86,cpuinfo,
symtype,symsym,
tgobj;
tgobj,
hlcgobj;
function use_push(const cgpara:tcgpara):boolean;
begin
@ -1819,6 +1820,7 @@ unit cgcpu;
var
power : longint;
opsize : topsize;
saved_ds: Boolean;
begin
{ get stack space }
getcpuregister(list,NR_DI);
@ -1867,7 +1869,20 @@ unit cgcpu;
{ Allocate SI and load it with source }
getcpuregister(list,NR_SI);
a_loadaddr_ref_reg(list,ref,NR_SI);
if (ref.segment=NR_NO) or
(is_segment_reg(ref.segment) and segment_regs_equal(ref.segment,NR_DS)) then
begin
a_loadaddr_ref_reg(list,ref,NR_SI);
saved_ds:=false;
end
else
begin
hlcg.a_loadaddr_ref_reg(list,voidnearpointertype,voidnearpointertype,ref,NR_SI);
list.concat(taicpu.op_reg(A_PUSH,S_W,NR_DS));
saved_ds:=true;
list.concat(taicpu.op_reg(A_PUSH,S_W,ref.segment));
list.concat(taicpu.op_reg(A_POP,S_W,NR_DS));
end;
{ calculate size }
opsize:=S_B;
@ -1907,6 +1922,8 @@ unit cgcpu;
ungetcpuregister(list,NR_DI);
ungetcpuregister(list,NR_CX);
ungetcpuregister(list,NR_SI);
if saved_ds then
list.concat(taicpu.op_reg(A_POP,S_W,NR_DS));
{ patch the new address, but don't use a_load_reg_reg, that will add a move instruction
that can confuse the reg allocator }