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

* fixed tnegnotassign1.pp on powerpc and other RISC cpus

Browse Source 
git-svn-id: trunk@35757 -
This commit is contained in:
nickysn 2017-04-09 14:28:13 +00:00
parent 11b163ee18
commit 9187825e3a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cgobj.pas
View File

@ -1698,7 +1698,14 @@ implementation
begin
tmpreg:=getintregister(list,size);
a_load_ref_reg(list,size,size,ref,tmpreg);
a_op_reg_reg(list,op,size,reg,tmpreg);
if op in [OP_NEG,OP_NOT] then
begin
if reg<>NR_NO then
internalerror(2017040901);
a_op_reg_reg(list,op,size,tmpreg,tmpreg);
end
else
a_op_reg_reg(list,op,size,reg,tmpreg);
a_load_reg_ref(list,size,size,tmpreg,ref);
end;