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

* properly check number of operands

Browse Source 
git-svn-id: trunk@36322 -
This commit is contained in:
florian 2017-05-25 12:44:30 +00:00
parent bfc5f67f92
commit c83e6991d5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aoptx86.pas
View File

@ -1622,11 +1622,11 @@ unit aoptx86;
hp1 : tai;
begin
Result:=false;
if taicpu(p).opercnt <> 2 then
if taicpu(p).ops <> 2 then
exit;
if GetNextInstruction(p,hp1) and
(taicpu(hp1).opercnt = 2) and
MatchInstruction(hp1,taicpu(p).opcode,[taicpu(p).opsize]) then
MatchInstruction(hp1,taicpu(p).opcode,[taicpu(p).opsize]) and
(taicpu(hp1).ops = 2) then
begin
if (taicpu(hp1).oper[0]^.typ = taicpu(p).oper[1]^.typ) and
(taicpu(hp1).oper[1]^.typ = taicpu(p).oper[0]^.typ) then