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

Avoid range check error in a_op_const_reg_reg method when compiled with -CriotR

Browse Source 
git-svn-id: trunk@46945 -
This commit is contained in:
pierre 2020-09-24 16:06:49 +00:00
parent 0e72cc94f6
commit a4e520180f
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/xtensa/cgcpu.pas
View File

@ -528,7 +528,7 @@ implementation
list.concat(taicpu.op_reg_reg_const(A_SRLI,dst,src,a)) list.concat(taicpu.op_reg_reg_const(A_SRLI,dst,src,a))
else if (op=OP_SHR) and (a>15) and (a<=31) then else if (op=OP_SHR) and (a>15) and (a<=31) then
list.concat(taicpu.op_reg_reg_const_const(A_EXTUI,dst,src,a,32-a)) list.concat(taicpu.op_reg_reg_const_const(A_EXTUI,dst,src,a,32-a))
else if (op=OP_AND) and (63-BsrQWord(a)+PopCnt(QWord(a))=64) and (PopCnt(QWord(a))<=16) then else if (op=OP_AND) and (63-BsrQWord(qword(a))+PopCnt(QWord(a))=64) and (PopCnt(QWord(a))<=16) then
list.concat(taicpu.op_reg_reg_const_const(A_EXTUI,dst,src,0,PopCnt(QWord(a)))) list.concat(taicpu.op_reg_reg_const_const(A_EXTUI,dst,src,0,PopCnt(QWord(a))))
else else
begin begin