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

Fixed missing maybeadjust calls after not operation.

Browse Source 
git-svn-id: branches/laksen/riscv_new@39493 -
This commit is contained in:
Jeppe Johansen 2018-07-23 10:20:32 +00:00
parent b98eb3daa9
commit a8c82856b1
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/riscv/cgrv.pas
View File

@ -233,9 +233,15 @@ unit cgrv;
procedure tcgrv.a_op_reg_reg_reg(list: TAsmList; op: TOpCg; size: tcgsize; src1, src2, dst: tregister);
begin
if op=OP_NOT then
a_op_const_reg_reg(list,OP_XOR,size,-1,src1,dst)
begin
list.concat(taicpu.op_reg_reg_const(A_XORI,dst,src1,-1));
maybeadjustresult(list,op,size,dst);
end
else if op=OP_NEG then
a_op_reg_reg_reg(list,OP_SUB,size,src1,NR_X0,dst)
begin
list.concat(taicpu.op_reg_reg_reg(A_SUB,dst,NR_X0,src1));
maybeadjustresult(list,op,size,dst);
end
else
case op of
OP_MOVE: