paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 15:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@36885 -
This commit is contained in:
svenbarth 2017-08-12 15:25:00 +00:00
parent 4c71fb9e28
commit 3fd68bf59c
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/powerpc/agppcmpw.pas
View File

@ -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