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

* when checking if a register is used by an operand, compare the super registers

Browse Source 
git-svn-id: trunk@34720 -
This commit is contained in:
florian 2016-10-15 15:03:26 +00:00
parent 8e9f4af801
commit e6cea6622e
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/aoptbase.pas
View File

@ -143,7 +143,7 @@ unit aoptbase;
Function TAOptBase.RegInOp(Reg: TRegister; const op: toper): Boolean;
Begin
Case op.typ Of
Top_Reg: RegInOp := Reg = op.reg;
Top_Reg: RegInOp := SuperRegistersEqual(Reg,op.reg);
Top_Ref: RegInOp := RegInRef(Reg, op.ref^);
{$ifdef arm}
Top_Shifterop: RegInOp := op.shifterop^.rs = Reg;