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

--- Merging r42860 into '.':

Browse Source 
U    compiler/arm/narmmat.pas
--- Recording mergeinfo for merge of r42860 into '.':
 U   .
------------------------------------------------------------------------
r42860 | pierre | 2019-08-28 07:38:35 +0000 (Wed, 28 Aug 2019) | 1 line

 Fix code generated in tarmnotnode.second_boolean
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@42879 -
This commit is contained in:
pierre 2019-08-30 13:05:02 +00:00
parent 810989c765
commit 43436808e9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/narmmat.pas
View File

@ -334,7 +334,7 @@ implementation
begin begin
tmpreg:=cg.GetIntRegister(current_asmdata.CurrAsmList,OS_INT); tmpreg:=cg.GetIntRegister(current_asmdata.CurrAsmList,OS_INT);
{ OR low and high parts together } { OR low and high parts together }
current_asmdata.CurrAsmList.concat(setoppostfix(taicpu.op_reg_reg_reg(A_ORR,left.location.register64.reglo,left.location.register64.reghi,tmpreg),PF_S)); current_asmdata.CurrAsmList.concat(setoppostfix(taicpu.op_reg_reg_reg(A_ORR,tmpreg,left.location.register64.reglo,left.location.register64.reghi),PF_S));
end end
else else
current_asmdata.CurrAsmList.concat(taicpu.op_reg_const(A_CMP,left.location.register,0)); current_asmdata.CurrAsmList.concat(taicpu.op_reg_const(A_CMP,left.location.register,0));