diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-10-16 16:35:36 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-10-16 16:35:36 +0000 |
| commit | 503651fe72c4e8c48e7c9371bfec2b01b67b4002 (patch) | |
| tree | d45d4988b70c1aab8c1c6d92d920c7659dc1ab5d /compiler/aoptbase.pas | |
| parent | 97b9468e02f2ef6edd648dac4d7394dd3962f409 (diff) | |
| download | fpc-503651fe72c4e8c48e7c9371bfec2b01b67b4002.tar.gz | |
* TAOptBase.RegInRef compares using SuperRegistersEqual as TAOptBase.RegInOp does for top_reg already
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@34730 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/aoptbase.pas')
| -rw-r--r-- | compiler/aoptbase.pas | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/compiler/aoptbase.pas b/compiler/aoptbase.pas index c3d027bac4..e628d39364 100644 --- a/compiler/aoptbase.pas +++ b/compiler/aoptbase.pas @@ -156,11 +156,10 @@ unit aoptbase; Function TAOptBase.RegInRef(Reg: TRegister; Const Ref: TReference): Boolean; Begin - Reg := RegMaxSize(Reg); - RegInRef := (Ref.Base = Reg) - {$ifdef cpurefshaveindexreg} - Or (Ref.Index = Reg) - {$endif cpurefshaveindexreg} + RegInRef := SuperRegistersEqual(Ref.Base,Reg) +{$ifdef cpurefshaveindexreg} + Or SuperRegistersEqual(Ref.Index,Reg) +{$endif cpurefshaveindexreg} End; Function TAOptBase.RegModifiedByInstruction(Reg: TRegister; p1: tai): Boolean; |