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

* Xtensa: cleanup of getreferencestring

Browse Source 
git-svn-id: trunk@47565 -
This commit is contained in:
florian 2020-11-24 22:04:28 +00:00
parent 4a05053650
commit 6ac2957187
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/xtensa/agcpugas.pas
View File

@ -78,23 +78,20 @@ unit agcpugas;
begin
with ref do
begin
{$ifdef extdebug}
// if base=NR_NO then
// internalerror(200308292);
// if ((index<>NR_NO) or (shiftmode<>SM_None)) and ((offset<>0) or (symbol<>nil)) then
// internalerror(200308293);
{$endif extdebug}
if assigned(symbol) then
begin
s:=symbol.name;
if offset<>0 then
s:=s+tostr_with_plus(offset);
if refaddr=addr_pic then
s:=s+'(PLT)'
{else if refaddr=addr_tlscall then
s:=s+'(tlscall)'};
case refaddr of
addr_pic:
s:=s+'(PLT)';
addr_full,
addr_no:
;
else
Internalerror(2020112403);
end;
end
else
begin