Explorar o código

* agppcmpw.getopstr: always access RTOC symbols as [TC](RTOC) instead of only (RTOC)

git-svn-id: trunk@36885 -
svenbarth %!s(int64=8) %!d(string=hai) anos
pai
achega
3fd68bf59c
Modificáronse 1 ficheiros con 1 adicións e 3 borrados
  1. 1 3
      compiler/powerpc/agppcmpw.pas

+ 1 - 3
compiler/powerpc/agppcmpw.pas

@@ -275,9 +275,7 @@ interface
                 internalerror(2011122701);
               hs:=o.ref^.symbol.name;
               ReplaceForbiddenChars(hs);
-              if o.ref^.symbol.bind=AB_EXTERNAL then
-                hs:=hs+'[TC]';
-              hs:=hs+'(RTOC)';
+              hs:=hs+'[TC](RTOC)';
               getopstr:=hs;
             end
           else