paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

- fixed bra #.label assembler errors hopefully

Browse Source 
git-svn-id: trunk@5492 -
This commit is contained in:
Károly Balogh 2006-11-26 16:19:54 +00:00
parent 0d97f9ab6c
commit 119cdbb772
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/m68k/ag68kgas.pas
View File

@ -198,19 +198,19 @@ interface
top_ref:
if o.ref^.refaddr=addr_full then
begin
if assigned(o.ref^.symbol) then
hs:='#'+o.ref^.symbol.name
else
hs:='#';
if o.ref^.offset>0 then
hs:=hs+'+'+tostr(o.ref^.offset)
else
if o.ref^.offset<0 then
hs:=hs+tostr(o.ref^.offset)
else
if not(assigned(o.ref^.symbol)) then
hs:=hs+'0';
getopstr:=hs;
if assigned(o.ref^.symbol) then
hs:=o.ref^.symbol.name
else
hs:='#';
if o.ref^.offset>0 then
hs:=hs+'+'+tostr(o.ref^.offset)
else
if o.ref^.offset<0 then
hs:=hs+tostr(o.ref^.offset)
else
if not(assigned(o.ref^.symbol)) then
hs:=hs+'0';
getopstr:=hs;
end
else
getopstr:=getreferencestring(o.ref^);