paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 22:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k/ag68kgas.pas, getreferencestring:

Browse Source 
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:
svenbarth 2012-10-18 20:11:15 +00:00
parent cfadcf3769
commit 0217efc398
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/m68k/ag68kgas.pas
View File

@ -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