Browse Source

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

git-svn-id: trunk@36885 -
svenbarth 8 years ago
parent
commit
3fd68bf59c
1 changed files with 1 additions and 3 deletions
  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