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

m68k: plain 68000 doesn't support index scaling at all (020+ and CF only)

Browse Source 
git-svn-id: trunk@27967 -
This commit is contained in:
Károly Balogh 2014-06-15 12:28:51 +00:00
parent 159a35da4e
commit c6153010d1
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/n68kmem.pas
View File

@ -69,6 +69,7 @@ implementation
hreg:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
{ if we have a possibility, setup a scalefactor instead of the MUL }
if (location.reference.base=NR_NO) or (location.reference.index<>NR_NO) or
(current_settings.cputype in [cpu_m68000]) or
((current_settings.cputype in cpu_coldfire) and not (l in [2,4])) or
not (l in [2,4,8]) then
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_IMUL,OS_ADDR,l,maybe_const_reg,hreg)