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

* generate better i8086 code for ror32 by 1 and 17

Browse Source 
git-svn-id: trunk@35741 -
This commit is contained in:
nickysn 2017-04-05 14:16:00 +00:00
parent ff28d5c85d
commit d5e33cce7f
1 changed files with 9 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/i8086/cgcpu.pas
View File

@ -257,7 +257,7 @@ unit cgcpu;
tmpreg: tregister;
op1, op2: TAsmOp;
ax_subreg: tregister;
hl_loop_start,hl_skip: tasmlabel;
hl_loop_start: tasmlabel;
ai: taicpu;
use_loop, use_186_fast_shift, use_8086_fast_shift,
use_386_fast_shift: Boolean;
@ -576,20 +576,11 @@ unit cgcpu;
else if ((a=15) and (op=OP_ROL)) or ((a=31) and (op=OP_ROR)) then
begin
list.Concat(taicpu.op_reg_reg(A_XCHG,S_W,reg,GetNextReg(reg)));
list.Concat(taicpu.op_const_reg(A_SHR,S_W,1,reg));
tmpreg:=getintregister(list,OS_16);
a_load_reg_reg(list,OS_16,OS_16,reg,tmpreg);
list.Concat(taicpu.op_const_reg(A_SHR,S_W,1,tmpreg));
list.Concat(taicpu.op_const_reg(A_RCR,S_W,1,GetNextReg(reg)));
current_asmdata.getjumplabel(hl_skip);
ai:=Taicpu.Op_Sym(A_Jcc,S_NO,hl_skip);
ai.SetCondition(C_NC);
ai.is_jmp:=true;
list.concat(ai);
list.Concat(taicpu.op_const_reg(A_ADD,S_W,aint($8000),reg));
a_label(list,hl_skip);
list.Concat(taicpu.op_const_reg(A_RCR,S_W,1,reg));
end
else if ((a=17) and (op=OP_ROL)) or ((a=31) and (op=OP_ROR)) then
begin
@ -600,19 +591,11 @@ unit cgcpu;
end
else if ((a=31) and (op=OP_ROL)) or ((a=1) and (op=OP_ROR)) then
begin
list.Concat(taicpu.op_const_reg(A_SHR,S_W,1,reg));
tmpreg:=getintregister(list,OS_16);
a_load_reg_reg(list,OS_16,OS_16,reg,tmpreg);
list.Concat(taicpu.op_const_reg(A_SHR,S_W,1,tmpreg));
list.Concat(taicpu.op_const_reg(A_RCR,S_W,1,GetNextReg(reg)));
current_asmdata.getjumplabel(hl_skip);
ai:=Taicpu.Op_Sym(A_Jcc,S_NO,hl_skip);
ai.SetCondition(C_NC);
ai.is_jmp:=true;
list.concat(ai);
list.Concat(taicpu.op_const_reg(A_ADD,S_W,aint($8000),reg));
a_label(list,hl_skip);
list.Concat(taicpu.op_const_reg(A_RCR,S_W,1,reg));
end
else
internalerror(2017040501);