瀏覽代碼

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

git-svn-id: trunk@36885 -
svenbarth 8 年之前
父節點
當前提交
3fd68bf59c
共有 1 個文件被更改,包括 1 次插入3 次删除
  1. 1 3
      compiler/powerpc/agppcmpw.pas

+ 1 - 3
compiler/powerpc/agppcmpw.pas

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