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

+ AArch64: FoldShiftProcess fixed

Browse Source 
git-svn-id: trunk@42963 -
This commit is contained in:
florian 2019-09-08 20:53:43 +00:00
parent c3c3e99c64
commit ce9e1a3419
1 changed files with 3 additions and 4 deletions

7
compiler/aarch64/aoptcpu.pas
View File

@ -401,10 +401,9 @@ Implementation
((taicpu(hp1).opcode<>A_SUB) or
MatchOperand(taicpu(p).oper[0]^, taicpu(hp1).oper[taicpu(hp1).ops-1]^)) then
begin
if taicpu(hp1).opcode in [A_TST, A_CMP, A_CMN, A_MOV] then
I2:=0
else
I2:=1;
{ for the two operand instructions, start also at the second operand as they are not always commutative
(depends on the flags tested laster on) and thus the operands cannot swapped }
I2:=1;
for I:=I2 to taicpu(hp1).ops-1 do
if MatchOperand(taicpu(p).oper[0]^, taicpu(hp1).oper[I]^.reg) then
begin