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

powerpc/agppcmpw.pas:

Browse Source 
* getopstr: implement the case that refadr is addr_pic_no_got (we'll have to see whether this really works though...)

git-svn-id: trunk@33289 -
This commit is contained in:
svenbarth 2016-03-19 12:38:53 +00:00
parent 854c67175a
commit 7845362701
1 changed files with 14 additions and 0 deletions

14
compiler/powerpc/agppcmpw.pas
View File

@ -264,6 +264,20 @@ interface
top_ref:
if o.ref^.refaddr=addr_no then
getopstr:=getreferencestring(o.ref^)
else if o.ref^.refaddr=addr_pic_no_got then
begin
if (o.ref^.base<>NR_RTOC) or
(o.ref^.index<>NR_NO) or
(o.ref^.offset<>0) or
not assigned(o.ref^.symbol) then
internalerror(2011122701);
hs:=o.ref^.symbol.name;
ReplaceForbiddenChars(hs);
if o.ref^.symbol.bind=AB_EXTERNAL then
hs:=hs+'[TC]';
hs:=hs+'(RTOC)';
getopstr:=hs;
end
else
begin
hs:=o.ref^.symbol.name;