浏览代码

m68k/ag68kgas.pas, getreferencestring:
It seems that GNU as needs the syntax "offset(register.size*scale)" if the base address
register is ommited instead of "offset(,register.size*scale)". Now the System unit
assembles and nearly the complete RTL can be built.

git-svn-id: trunk@22734 -

svenbarth 12 年之前
父节点
当前提交
0217efc398
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/m68k/ag68kgas.pas

+ 2 - 2
compiler/m68k/ag68kgas.pas

@@ -151,9 +151,9 @@ interface
                if (index<>NR_NO) and (base=NR_NO) and (direction=dir_none) then
                if (index<>NR_NO) and (base=NR_NO) and (direction=dir_none) then
                 begin
                 begin
                   if (scalefactor = 1) or (scalefactor = 0) then
                   if (scalefactor = 1) or (scalefactor = 0) then
-                    s:=s+'(,'+indexstr+'.l)'
+                    s:=s+'('+indexstr+'.l)'
                   else
                   else
-                    s:=s+'(,'+indexstr+'.l*'+tostr(scalefactor)+')'
+                    s:=s+'('+indexstr+'.l*'+tostr(scalefactor)+')'
                 end
                 end
                 else if (index=NR_NO) and (base<>NR_NO) and (direction=dir_inc) then
                 else if (index=NR_NO) and (base<>NR_NO) and (direction=dir_inc) then
                 begin
                 begin