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

+ generate more optimal code for OP_NOT and OP_NEG in tcg64f8086.a_op64_ref

Browse Source 
git-svn-id: trunk@45304 -
This commit is contained in:
nickysn 2020-05-07 03:34:20 +00:00
parent 52572e10e9
commit 4f4d8191f0
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
compiler/i8086/cgcpu.pas
View File

@ -106,6 +106,7 @@ unit cgcpu;
procedure a_op64_reg_reg(list : TAsmList;op:TOpCG;size : tcgsize;regsrc,regdst : tregister64);override;
procedure a_op64_const_reg(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;reg : tregister64);override;
procedure a_op64_const_ref(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;const ref : treference);override;
procedure a_op64_ref(list : TAsmList;op:TOpCG;size : tcgsize;const ref : treference);override;
private
procedure get_64bit_ops(op:TOpCG;var op1,op2:TAsmOp);
end;
@ -3329,6 +3330,45 @@ unit cgcpu;
end;
end;
procedure tcg64f8086.a_op64_ref(list : TAsmList;op:TOpCG;size : tcgsize;const ref : treference);
var
tempref: treference;
begin
tempref:=ref;
tcgx86(cg).make_simple_ref(list,tempref);
case op of
OP_NOT:
begin
cg.a_op_ref(list,op,OS_32,tempref);
inc(tempref.offset,4);
cg.a_op_ref(list,op,OS_32,tempref);
end;
OP_NEG :
begin
inc(tempref.offset,6);
cg.a_op_ref(list,OP_NOT,OS_16,tempref);
dec(tempref.offset,2);
cg.a_op_ref(list,OP_NOT,OS_16,tempref);
dec(tempref.offset,2);
cg.a_op_ref(list,OP_NOT,OS_16,tempref);
dec(tempref.offset,2);
cg.a_reg_alloc(list,NR_DEFAULTFLAGS);
list.concat(taicpu.op_ref(A_NEG,S_W,tempref));
inc(tempref.offset,2);
list.concat(taicpu.op_const_ref(A_SBB,S_W,-1,tempref));
inc(tempref.offset,2);
list.concat(taicpu.op_const_ref(A_SBB,S_W,-1,tempref));
inc(tempref.offset,2);
list.concat(taicpu.op_const_ref(A_SBB,S_W,-1,tempref));
cg.a_reg_dealloc(list,NR_DEFAULTFLAGS);
end;
else
inherited;
end;
end;
procedure create_codegen;
begin
cg := tcg8086.create;