paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Xtensa: MatchInstruction requires a postfix parameter

Browse Source 
git-svn-id: trunk@45674 -
This commit is contained in:
florian 2020-06-21 19:16:27 +00:00
parent 3cb341eabc
commit 221d8d84ae
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/xtensa/aoptcpu.pas
View File

@ -91,11 +91,12 @@ Implementation
end;
function MatchInstruction(const instr: tai; const op: TAsmOp): boolean;
function MatchInstruction(const instr: tai; const op: TAsmOp; const postfix: TOpPostfixes): boolean;
begin
result :=
(instr.typ = ait_instruction) and
(taicpu(instr).opcode = op);
(taicpu(instr).opcode = op) and
((postfix = []) or (taicpu(instr).oppostfix in postfix));
end;
@ -190,7 +191,7 @@ Implementation
hp1 : tai;
begin
Result:=false;
if MatchInstruction(movp, A_MOV) and
if MatchInstruction(movp, A_MOV, [PF_None,PF_N]) and
(taicpu(p).ops>=3) and
{ We can't optimize if there is a shiftop }
(taicpu(movp).ops=2) and