paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 09:30: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

15
compiler/x86/aoptx86.pas
View File

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