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

* Xtensa: fix tcpunotnode.second_boolean

Browse Source 
git-svn-id: trunk@44385 -
This commit is contained in:
florian 2020-03-28 15:47:47 +00:00
parent d1bbfe4cf7
commit a9a85711d5
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/xtensa/ncpumat.pas
View File

@ -82,7 +82,13 @@ implementation
location:=left.location;
hlcg.location_force_reg(current_asmdata.CurrAsmList,location,resultdef,resultdef,false);
cg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_NOT,def_cgsize(resultdef), location.register, location.register);
{ not supported yet }
if is_64bit(resultdef) then
Internalerror(2020031701);
if is_cbool(resultdef) then
cg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_NOT,def_cgsize(resultdef), location.register, location.register)
else
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_XOR,def_cgsize(resultdef),1, location.register, location.register)
end;
{*****************************************************************************