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

Avoid range check error in TCpuAsmOptimizer.OptPostAnd method

Browse Source
This commit is contained in:
Pierre Muller 2021-10-04 21:08:24 +00:00
parent 1e136b0cc7
commit 7778d20003
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aarch64/aoptcpu.pas
View File

@ -787,6 +787,7 @@ Implementation
var
hp1, hp2: tai;
hp3: taicpu;
bitval : cardinal;
begin
Result:=false;
{
@ -811,11 +812,12 @@ Implementation
MatchInstruction(hp2,A_B,[PF_None]) and
(taicpu(hp2).condition in [C_EQ,C_NE]) then
begin
bitval:=BsfQWord(qword(taicpu(p).oper[2]^.val));
case taicpu(hp2).condition of
C_NE:
hp3:=taicpu.op_reg_const_ref(A_TBNZ,taicpu(p).oper[1]^.reg,BsfQWord(taicpu(p).oper[2]^.val),taicpu(hp2).oper[0]^.ref^);
hp3:=taicpu.op_reg_const_ref(A_TBNZ,taicpu(p).oper[1]^.reg,bitval,taicpu(hp2).oper[0]^.ref^);
C_EQ:
hp3:=taicpu.op_reg_const_ref(A_TBZ,taicpu(p).oper[1]^.reg,BsfQWord(taicpu(p).oper[2]^.val),taicpu(hp2).oper[0]^.ref^);
hp3:=taicpu.op_reg_const_ref(A_TBZ,taicpu(p).oper[1]^.reg,bitval,taicpu(hp2).oper[0]^.ref^);
else
Internalerror(2021100201);
end;