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

* Xtensa: force correct location into a register in tcpunotnode.second_boolean

Browse Source 
git-svn-id: trunk@46695 -
This commit is contained in:
florian 2020-08-25 21:39:39 +00:00
parent 3c6c403b7b
commit 6e25a014e6
1 changed files with 1 additions and 1 deletions

2
compiler/xtensa/ncpumat.pas
View File

@ -118,7 +118,7 @@ implementation
if is_64bit(resultdef) then
begin
if not(left.location.loc in [LOC_CREGISTER,LOC_REGISTER]) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,location,resultdef,resultdef,false);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,resultdef,resultdef,false);
hreg1:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT);
cg.a_op_reg_reg_reg(current_asmdata.CurrAsmList,OP_OR,OS_INT,left.location.register64.reglo,left.location.register64.reghi,hreg1);
hreg2:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT);