소스 검색

* 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);
               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