Procházet zdrojové kódy

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 před 12 roky
rodič
revize
0217efc398
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  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
                 begin
                   if (scalefactor = 1) or (scalefactor = 0) then
-                    s:=s+'(,'+indexstr+'.l)'
+                    s:=s+'('+indexstr+'.l)'
                   else
-                    s:=s+'(,'+indexstr+'.l*'+tostr(scalefactor)+')'
+                    s:=s+'('+indexstr+'.l*'+tostr(scalefactor)+')'
                 end
                 else if (index=NR_NO) and (base<>NR_NO) and (direction=dir_inc) then
                 begin