diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-10-15 15:03:26 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-10-15 15:03:26 +0000 |
| commit | f9fa5d3bbfc5e677678ddf90251c10de9c765bd9 (patch) | |
| tree | 0e2bde1130a19cd3e998dcbdc12e7453880b7a8e /compiler/aoptbase.pas | |
| parent | 964a257e26e727879ae1aff23a28fa1c146a09b0 (diff) | |
| download | fpc-f9fa5d3bbfc5e677678ddf90251c10de9c765bd9.tar.gz | |
* when checking if a register is used by an operand, compare the super registers
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@34720 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/aoptbase.pas')
| -rw-r--r-- | compiler/aoptbase.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/aoptbase.pas b/compiler/aoptbase.pas index f115587825..c3d027bac4 100644 --- a/compiler/aoptbase.pas +++ b/compiler/aoptbase.pas @@ -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; |