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

* r33995 was not complete

Browse Source 
git-svn-id: trunk@33997 -
This commit is contained in:
florian 2016-06-16 19:26:43 +00:00
parent dfe00a8ed1
commit d31d24ed16
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/aoptx86.pas
View File

@ -911,7 +911,7 @@ unit aoptx86;
GetNextIntruction_p and GetNextIntruction_p and
(hp1.typ = ait_instruction) and (hp1.typ = ait_instruction) and
GetNextInstruction(hp1, hp2) and GetNextInstruction(hp1, hp2) and
MatchInstruction(taicpu(hp2),A_MOV,[]) and MatchInstruction(hp2,A_MOV,[]) and
OpsEqual(taicpu(hp2).oper[1]^, taicpu(p).oper[0]^) and OpsEqual(taicpu(hp2).oper[1]^, taicpu(p).oper[0]^) and
(IsFoldableArithOp(taicpu(hp1), taicpu(p).oper[1]^.reg) or (IsFoldableArithOp(taicpu(hp1), taicpu(p).oper[1]^.reg) or
((taicpu(p).opsize=S_L) and (taicpu(hp1).opsize=S_Q) and ((taicpu(p).opsize=S_L) and (taicpu(hp1).opsize=S_Q) and