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

* use the stack segment for SP-relative addresses in Tcgx86.g_concatcopy in

Browse Source 
the memory models with SS<>DS (necessary, because make_simple_ref isn't called
  in the copy_string case)

git-svn-id: trunk@27479 -
This commit is contained in:
nickysn 2014-04-05 12:02:04 +00:00
parent fadbe3b43e
commit 7a873f495d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/cgx86.pas
View File

@ -2451,7 +2451,7 @@ unit cgx86;
begin
getcpuregister(list,REGDI);
if (dest.segment=NR_NO) and
(segment_regs_equal(NR_SS,NR_DS) or (dest.base<>NR_BP)) then
(segment_regs_equal(NR_SS,NR_DS) or ((dest.base<>NR_BP) and (dest.base<>NR_SP))) then
begin
a_loadaddr_ref_reg(list,dest,REGDI);
saved_es:=false;
@ -2473,7 +2473,7 @@ unit cgx86;
{$endif volatile_es}
if dest.segment<>NR_NO then
list.concat(taicpu.op_reg(A_PUSH,push_segment_size,dest.segment))
else if dest.base=NR_BP then
else if (dest.base=NR_BP) or (dest.base=NR_SP) then
list.concat(taicpu.op_reg(A_PUSH,push_segment_size,NR_SS))
else
internalerror(2014040401);
@ -2481,7 +2481,7 @@ unit cgx86;
end;
getcpuregister(list,REGSI);
if (source.segment=NR_NO) and
(segment_regs_equal(NR_SS,NR_DS) or (source.base<>NR_BP)) then
(segment_regs_equal(NR_SS,NR_DS) or ((source.base<>NR_BP) and (source.base<>NR_SP))) then
begin
a_loadaddr_ref_reg(list,source,REGSI);
saved_ds:=false;
@ -2495,7 +2495,7 @@ unit cgx86;
saved_ds:=true;
if source.segment<>NR_NO then
list.concat(taicpu.op_reg(A_PUSH,push_segment_size,source.segment))
else if source.base=NR_BP then
else if (source.base=NR_BP) or (source.base=NR_SP) then
list.concat(taicpu.op_reg(A_PUSH,push_segment_size,NR_SS))
else
internalerror(2014040402);