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

* fix m68k IE after e9acd759, patch by Yuriy Sydorov

Browse Source
This commit is contained in:
Karoly Balogh 2021-12-13 16:14:59 +01:00
parent 453f45fa1f
commit 06da0b3db6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/m68k/rgcpu.pas
View File

@ -146,6 +146,7 @@ unit rgcpu;
begin begin
{ source can be replaced if dest is register... } { source can be replaced if dest is register... }
if ((instr.oper[1]^.typ=top_reg) and if ((instr.oper[1]^.typ=top_reg) and
(getregtype(instr.oper[1]^.reg)=regtype) and
(get_alias(getsupreg(instr.oper[1]^.reg))<>orgreg) and (get_alias(getsupreg(instr.oper[1]^.reg))<>orgreg) and
((instr.opcode=A_MOVE) or (instr.opcode=A_ADD) or (instr.opcode=A_SUB) or ((instr.opcode=A_MOVE) or (instr.opcode=A_ADD) or (instr.opcode=A_SUB) or
(instr.opcode=A_AND) or (instr.opcode=A_OR) or (instr.opcode=A_CMP))) or (instr.opcode=A_AND) or (instr.opcode=A_OR) or (instr.opcode=A_CMP))) or