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

+ support for OP_NOT and OP_NEG in a_op64_reg_reg() (required since

Browse Source 
r19912)

git-svn-id: trunk@19921 -
This commit is contained in:
Jonas Maebe 2011-12-30 12:11:09 +00:00
parent 4d12a8b1ba
commit f5568b86e6
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/powerpc/cgcpu.pas
View File

@ -1695,7 +1695,20 @@ const
procedure tcg64fppc.a_op64_reg_reg(list : TAsmList;op:TOpCG;size : tcgsize;regsrc,regdst : tregister64);
begin
a_op64_reg_reg_reg(list,op,size,regsrc,regdst,regdst);
case op of
OP_NOT:
begin
cg.a_op_reg_reg(list,OP_NOT,OS_32,regsrc.reglo,regdst.reglo);
cg.a_op_reg_reg(list,OP_NOT,OS_32,regsrc.reghi,regdst.reghi);
end;
OP_NEG:
begin
list.concat(taicpu.op_reg_reg_const(a_subfic,regdst.reglo,regsrc.reglo,0));
list.concat(taicpu.op_reg_reg(a_subfze,regdst.reghi,regsrc.reghi));
end;
else
a_op64_reg_reg_reg(list,op,size,regsrc,regdst,regdst);
end;
end;