فهرست منبع

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

git-svn-id: trunk@27967 -
Károly Balogh 11 سال پیش
والد
کامیت
c6153010d1
1فایلهای تغییر یافته به همراه1 افزوده شده و 0 حذف شده
  1. 1 0
      compiler/m68k/n68kmem.pas

+ 1 - 0
compiler/m68k/n68kmem.pas

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