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

+ int register in treference.segment support in tcg8086.op_*ref*

Browse Source 
git-svn-id: trunk@24586 -
This commit is contained in:
nickysn 2013-05-24 19:57:02 +00:00
parent 2ec15deaba
commit 3aeea835f9
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/i8086/cgcpu.pas
View File

@ -274,6 +274,13 @@ unit cgcpu;
tmpref:=ref;
make_simple_ref(list,tmpref);
if (tmpref.segment<>NR_NO) and (not is_segment_reg(tmpref.segment)) then
begin
list.concat(taicpu.op_reg(A_PUSH,S_W,tmpref.segment));
list.concat(taicpu.op_reg(A_POP,S_L,NR_ES));
tmpref.segment:=NR_ES;
end;
if size in [OS_64, OS_S64] then
internalerror(2013050801);
if size in [OS_32, OS_S32] then
@ -419,6 +426,13 @@ unit cgcpu;
make_simple_ref(list,tmpref);
check_register_size(size,reg);
if (tmpref.segment<>NR_NO) and (not is_segment_reg(tmpref.segment)) then
begin
list.concat(taicpu.op_reg(A_PUSH,S_W,tmpref.segment));
list.concat(taicpu.op_reg(A_POP,S_L,NR_ES));
tmpref.segment:=NR_ES;
end;
if size in [OS_64, OS_S64] then
internalerror(2013030902);
@ -450,6 +464,13 @@ unit cgcpu;
make_simple_ref(list,tmpref);
check_register_size(size,reg);
if (tmpref.segment<>NR_NO) and (not is_segment_reg(tmpref.segment)) then
begin
list.concat(taicpu.op_reg(A_PUSH,S_W,tmpref.segment));
list.concat(taicpu.op_reg(A_POP,S_L,NR_ES));
tmpref.segment:=NR_ES;
end;
if size in [OS_64, OS_S64] then
internalerror(2013050803);