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

- removed 2 unnecessary instructions for 8-bit OP_ROL/OP_ROR in tcgz80.a_op_reg_reg_internal

Browse Source 
git-svn-id: branches/z80@44669 -
This commit is contained in:
nickysn 2020-04-09 21:56:45 +00:00
parent eb3c4546ab
commit 0e257a2c9f
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/z80/cgcpu.pas
View File

@ -722,18 +722,19 @@ unit cgcpu;
list.concat(taicpu.op_reg(A_INC,NR_B)); list.concat(taicpu.op_reg(A_INC,NR_B));
list.concat(taicpu.op_reg(A_DEC,NR_B)); list.concat(taicpu.op_reg(A_DEC,NR_B));
a_jmp_flags(list,F_E,l2); a_jmp_flags(list,F_E,l2);
case op of if size in [OS_S16,OS_16,OS_S32,OS_32,OS_S64,OS_64] then
OP_ROL: case op of
begin OP_ROL:
list.concat(taicpu.op_reg(A_RRC,GetOffsetReg64(dst,dsthi,tcgsize2size[size]-1))); begin
list.concat(taicpu.op_reg(A_RLC,GetOffsetReg64(dst,dsthi,tcgsize2size[size]-1))); list.concat(taicpu.op_reg(A_RRC,GetOffsetReg64(dst,dsthi,tcgsize2size[size]-1)));
end; list.concat(taicpu.op_reg(A_RLC,GetOffsetReg64(dst,dsthi,tcgsize2size[size]-1)));
OP_ROR: end;
begin OP_ROR:
list.concat(taicpu.op_reg(A_RLC,dst)); begin
list.concat(taicpu.op_reg(A_RRC,dst)); list.concat(taicpu.op_reg(A_RLC,dst));
end; list.concat(taicpu.op_reg(A_RRC,dst));
end; end;
end;
cg.a_label(list,l1); cg.a_label(list,l1);
case op of case op of
OP_SHL: OP_SHL: