Explorar o código

- fixed bra #.label assembler errors hopefully

git-svn-id: trunk@5492 -
Károly Balogh %!s(int64=18) %!d(string=hai) anos
pai
achega
119cdbb772
Modificáronse 1 ficheiros con 13 adicións e 13 borrados
  1. 13 13
      compiler/m68k/ag68kgas.pas

+ 13 - 13
compiler/m68k/ag68kgas.pas

@@ -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^);