mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 11:09:19 +02:00
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 -
This commit is contained in:
parent
cfadcf3769
commit
0217efc398
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user