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

don't swap the base and index registers if we have a scalefactor

Browse Source 
git-svn-id: trunk@27109 -
This commit is contained in:
Károly Balogh 2014-03-12 02:34:30 +00:00
parent 7b05113322
commit 3a464dbdcf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/cgcpu.pas
View File

@ -453,10 +453,12 @@ unit cgcpu;
} }
{ first ensure that base is an address register } { first ensure that base is an address register }
if ((ref.base<>NR_NO) and (ref.index<>NR_NO)) and if ((ref.base<>NR_NO) and (ref.index<>NR_NO)) and
(not isaddressregister(ref.base) and isaddressregister(ref.index)) then (not isaddressregister(ref.base) and isaddressregister(ref.index)) and
(ref.scalefactor < 2) then
begin begin
{ if we have both base and index registers, but base is data and index { if we have both base and index registers, but base is data and index
is address, we can just swap them, as FPC always uses long index } is address, we can just swap them, as FPC always uses long index.
but we can only do this, if the index has no scalefactor }
hreg:=ref.base; hreg:=ref.base;
ref.base:=ref.index; ref.base:=ref.index;
ref.index:=hreg; ref.index:=hreg;