paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 19:25:58 +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: top_ref:
if o.ref^.refaddr=addr_full then if o.ref^.refaddr=addr_full then
begin begin
if assigned(o.ref^.symbol) then if assigned(o.ref^.symbol) then
hs:='#'+o.ref^.symbol.name hs:=o.ref^.symbol.name
else else
hs:='#'; hs:='#';
if o.ref^.offset>0 then if o.ref^.offset>0 then
hs:=hs+'+'+tostr(o.ref^.offset) hs:=hs+'+'+tostr(o.ref^.offset)
else else
if o.ref^.offset<0 then if o.ref^.offset<0 then
hs:=hs+tostr(o.ref^.offset) hs:=hs+tostr(o.ref^.offset)
else else
if not(assigned(o.ref^.symbol)) then if not(assigned(o.ref^.symbol)) then
hs:=hs+'0'; hs:=hs+'0';
getopstr:=hs; getopstr:=hs;
end end
else else
getopstr:=getreferencestring(o.ref^); getopstr:=getreferencestring(o.ref^);