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

* bail out early in MatchInstruction

Browse Source
This commit is contained in:
florian 2021-10-04 22:18:53 +02:00
parent 01a449c807
commit 1e136b0cc7
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/aoptx86.pas
View File

@ -278,11 +278,12 @@ unit aoptx86;
op : TAsmOp;
begin
result:=false;
if (instr.typ <> ait_instruction) or
((opsize <> []) and not(taicpu(instr).opsize in opsize)) then
exit;
for op in ops do
begin
if (instr.typ = ait_instruction) and
(taicpu(instr).opcode = op) and
((opsize = []) or (taicpu(instr).opsize in opsize)) then
if taicpu(instr).opcode = op then
begin
result:=true;
exit;